Para Manaus, Boa Vista. Porto Velho. Rio Branco, Santarém, Altamira, Macapá, Rondônia (Via Aérea): Cr$ 3.900. 



MÚSICA POR COMPUTADOR 


Para o TK 83/85 com 48 K: 
MÚSICA POR SOFTWARE 
DISCO TK: ARQUIVO 
PARA SEUS DISCOS 


Por dentro do Apple: 
NÚMEROS COMPLEXOS 


Para o TK 2000: 

AS VÁRIAS MANEIRAS DE 
GERAR SOM 


Analisando: 

TK WORD PROCESSADOR DE 
TEXTOS PARA TK 85 


EXEMPLAR DE ASSINANTE - VENDA PROIBIDA Ano II - N? 17 - 1985 Cr* 3.000 







PARA TK 2000COLOR 




A Microsoft tem 120 programas em fitas e disquetes à sua disposição 
_ _São sistemas aplicativos para acompanhar e agilizar os negócios 
de sua empresa. E também jogos eletrônicos para você e sua família 

se divertirem muito. Todos especiais para TK-83, TK-85; - 

TK-2000, Applele compatíveis. E todos com a mesma qualidade- - 

dos 100.000 programas já vendidos em todo o Brasil: - 

“Procure o revendedor Microsoft mais próximo (se não encontrar os 
programas Microsoft escreva para a Caixa Postal 54221 - CEP OlOOOr 
“S. Paulo-SP). Você encontrará os melhores programas da sua vida._ 
_l_i_L_i_I_I_I_I_I_L I I l i I 














O mercado de informática na opinião dos professores 


Embora a oferta de empregos aos 
profissionais de processamento de da¬ 
dos esteja em expansão, a demanda ten¬ 
de a decrescer sensivelmente, sobretu¬ 
do no segmento de digitadores e pro¬ 
gramadores. "0 que se vê é o aumento 
da demanda qualitativa de mão-de-obra 
na área e não quantitativa", avalia Val- 
demar Setzer, professor adjunto do Ins¬ 
tituto de Matemática e Estatística da 
USP. 

Wilson José Tucci, do Departa¬ 
mento de Computação do Colégio Pueri 
Domus, destaca que atualmente a maio¬ 
ria dos departamentos financeiros de 
empresas requisitam profissionais de 
processamento de dados para compo¬ 
rem seus quadros. 0 que gera maior 


procura, segundo Tucci, é que um gran¬ 
de número das pequenas e médias em¬ 
presas sentem a importância de entra¬ 
rem na era da informática para se tor¬ 
narem mais competitivas. 

Apesar da difusão de programas 
aplicativos, "pacotes" prontos disponí¬ 
veis, na opinião de Tucci, a maioria das 
empresas estão optando, geralmente, 
por programas personalizados, desen¬ 
volvidos internamente com pessoal pró¬ 
prio. 

Outro trabalho importante realizado 
pelos profissionais de processamento de 
dados, segundo Tucci, é a manutenção 
do software. "Num país inflacionário 
como o nosso, um controle de esto¬ 
ques, por exemplo, deve ser corrigido 


quase diariamente", explica. 

Ele falou também sobre o apareci¬ 
mento das linguagens de Quarta Gera¬ 
ção e na facilidade que traz aos usuá¬ 
rios finais na construção de seus pró¬ 
prios programas, definindo-as como um 
instrumento que não constitui ameaça 
aos analistas. Tucci esclarece que, a 
partir dessas linguagens, os analistas 
vão poder fazer realmente análise e dei¬ 
xarão as atividades páralelas de progra¬ 
mação, alheias à sua área. Para ele, com 
a ajuda dessa ferramenta, o usuário sa¬ 
berá melhor o que quer, possibilitando 
ao analista adequar essas linguagens à 
suas necessidades reais, além de conti¬ 
nuar a dar, também, a manutenção ao 
software. 


Projeto inovador no Senai/SP 


A PRIMEIRA EXPERIENCIA 


A primeira turma-piloto do curso da 
Lógica Digital formou-se em dezembro 
do ano passado na Escola da instituição 
em Santos. Dela participaram cerca de 
14 técnicos de diversas empresas que ti¬ 
veram acesso aos equipamentos desen¬ 
volvidos especialmente para o curso — 
painel demonstrador para lógica digital, 
microcomputador didático, treinador 
eletro-eletrônico. Segundo John F. Ar- 
ce, esta turma-piloto teve um caráter ex¬ 
perimental e seus integrantes foram sub¬ 
metidos ao programa do curso, tal como 
foi idealizado. "Isso permitiu uma ava¬ 
liação criteriosa do material didático e do 
próprio ritmo do aprendizado", ressal¬ 
tou. 

A preocupação principal dos orga¬ 
nizadores do projeto de eletrônica vol¬ 
tado à formação de técnicos foi com o 
material didático que, conforme afirmou 
alguns orientadores da turma, que pre¬ 
tendeu ser o mais pragmático possível. 
John Arce, destacou a intenção de for¬ 
necer ao aluno a situação real que ele vai 
encontrar na empresa após o curso. 

Este ano o Senai já pretende im¬ 
plantar os outros módulos do treina¬ 
mento (circuitos digitais níveis I e II, co¬ 
mandos lógicos programáveis, etc.). Em 
março inicia o desenvolvimento definiti¬ 
vo do projeto. 

OUTROS PROJETOS 

Não só para a automação industrial 
o Senai está se direcionando. Um dos 
destaques do projeto é com relação à 
área didático-pedagógica. Neste setor a 
instituição pretende desenvolver o ensi¬ 
no de informática mediante a utilização 
de pacotes aplicativos para controle de 
produção, além de informações sobre a 
situação da informática na indústria. 
A.L.A. 


Treinador eletro-eletrônico (módulo elétrico} instalado na Escola Senai "Antonio Souza 
Noschese", Santos. 


0 Senai vem desenvolvendo, com 
bons resultados, um projeto de infor¬ 
mática que objetiva, entre outros aspec¬ 
tos, atingir a grande demanda da área 
industrial por técnicos com experiência e 
conhecimentos da tecnologia digital. Na 
área de automação industrial a entidade 
vem se preocupando com dois campos: 
o desenvolvimento e as aplicações de 
tecnologias disponíveis. 

Diante disto surgiu o projeto de ele¬ 
trônica visando à especialização da mão- 
de-obra das indústrias nas áreas de con¬ 
trole de processos contínuos e mecâ¬ 
nica de precisão. Para a formação des¬ 


se pessoal a instituição montou labo¬ 
ratórios, adquiriu microcomputadores, 
projetou equipamentos e investiu cerca 
de Cr$ 1 bilhão. 

"0 projeto é dividido em outros 
subprojetos envolvendo desde a implan¬ 
tação de cinco cursos de especialização 
em circuitos digitais e microcomputado¬ 
res para processos contínuos, à prepa¬ 
ração de técnicos em eletrônica para 
manutenção de periféricos até à cons¬ 
trução de receptores de sinais digitais e 
de um microcomputador didático para 
aplicações industriais", afirmou John 
Franklin Arce, assessor técnico da dire¬ 
toria para assuntos de informática. 
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Formação Profissional 



Aviso aos Navegantes 


Olhando sob um outro ponto de 
vista, Valdemar Setzer vê com pessi¬ 
mismo a oferta de empregos na área. 
Para ele, o que já está acontecendo hoje 
é uma sensível diminuição da demanda 
de mão-de-obra, principalmente dos di¬ 
gitadores e programadores. "Essas pro¬ 
fissões foram criadas há pouco tempo e 
também vão desaparecer rapidamente", 
afirma. 

Ele destacou como um "aviso aos 
navegantes", em processamento de da¬ 
dos só vão sobrar os analistas versáteis 
e muitos especializados em várias áreas, 
para terem a possibilidade de mudar 
quando forem substituídos por softwa¬ 
res específicos. 

O mercado de trabalho, para Set¬ 
zer, ainda é fraco em nível, isto é, re¬ 
quisita profissionais, mas ainda não há 
uma exigência de maior qualidade. A 


curto prazo, ele prevê que a oferta de 
empregos diminuirá, mas subirá de nível 
exigindo, proporcionalmente, profissio¬ 
nais mais gabaritados em suas áreas. 

Ele prevê também, nesse processo, 
o desaparecimento do CPD das empre¬ 
sas. Para Setzer, a máquina vai ter uma 
necessidade mínima de operadores e 
digitadores, já que todo o processamen¬ 
to será feito on-line. Ele explica que an¬ 
tes, o CPD recebia tarefas e produzia 
relatórios para a empresa. Agora, com a 
entrada da operação dos usuários finais 
e com a difusão dos micros, esse sis¬ 
tema está ficando cada vez mais obso¬ 
leto, pois o próprio usuário, com as fer¬ 
ramentas que lhes são dadas hoje em 
dia, pode facilmente manipular a má¬ 
quina e programá-la para seu próprio 
uso, sem a necessidade de requisitar 
relatórios ao CPD. 


O baixo nível da formação de tecnó¬ 
logos de computação foi outro assunto 
abordado por Valdemar Setzer. Para ele, 
os profissionais devem ter, em primeiro 
lugar, uma boa base matemática, o que 
geralmente não ocorre nesses cursos. 0 
que ele sugere é o Bacharelado em Ciên¬ 
cias de Computação, como a melhor 
formação da área atualmente. A procura 
desses cursos, hoje, sobe ano a ano. 
Setzer informou que em 83 haviam 4 mil 
candidatos, em primeira opção, para 
apenas 36 vagas do Instituto de Mate¬ 
mática da USP. 

Ele criticou também a maneira co¬ 
mo o jovem escolhe a informática como 
profissão, salientando que "não basta 
gostar de fazer joguinhos eletrônicos". 
Setzer aponta, principalmente, a neces¬ 
sidade de se gostar de matemática e ló¬ 
gica. Outro erro freqüente entre os pro¬ 
fissionais é entrar nessa profissão, só 
porque acha a máquina interessante. 

Segundo Setzer, não se aprende 
computação via cursos de linguagem, 
mas sim, através da matemática e do 
conhecimento de algorítimos; "a lógica 
que está atrás de todas as linguagens", 
explica. A.L.M. 


Videogames, a grande 
presença na Hobby 8- Lazer 



/VIICROniGIT/lL 


Em meio a um ambiente típico de 
"crie e faça", a informática esteve pre¬ 
sente na feira de Hobby 8- Lazer, reali¬ 
zada em São Paulo, através de três em¬ 
presas: Midrodigital, CCE e Dynacom. 
Estas levaram ao Anhembi, durante 
aproximadamente 15 dias, seus micros, 
videogames e, principalmente, os jogos 
animados, que cativaram a atenção de 
crianças, adolescentes e seus pais. 

Conforme salientou Carlos Alberto, 
assessor de vendas da CCE, este tipo de 
feira serve para que as empresas fabri- 
y cantes apresentem aos revendedores de 


seus produtos os últimos lançamentos, 
assim como possibilita ao consumidor fi¬ 
nal o acesso ao equipamento do qual ele 
poderá vir a ser um usuário. 

As três empresas tiveram seus 
"stands" bastante freqüentados duran¬ 
te a realização da Hobby Et Lazer. E, en¬ 
tre os produtos que mais chamaram a 
atenção do público estavam realmente 
os videogames. Entre as marcas apre¬ 
sentadas estava o Onyx, um dos últimos 
lançamentos de final de ano da Microdi- 
gital. Segundo os diretores da empresa, 
o videogame veio atender à saga dos 


usuários, já que a expectativa pelo lan¬ 
çamento do Onyx no mercado era mui¬ 
to grande. 

O Onyx JR é compatível com o sis¬ 
tema Atari e apresenta uma inovação 
ressaltada pelos representantes da em¬ 
presa: a tecla "pause", que permite o 
congelamento automático de qualquer 
cena desejada do jogo. 

Já a CCE apresentou seu último 
lançamento — o micro MC-1000 — e o 
disco laser mostrado pela primeira vez 
na feira. A.L.A. 
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Servimec expande 
seu campo de atuação 



Programa institucional de informática (Micro-mirim). 


Dando prosseguimento à expansão 
iniciada no ano passado, quando inau¬ 
gurou unidades educacionais em Santo 
Amaro e no ABC paulista, a Servimec 
fechou 84 com um crescimento real de 
30% (faturando aproximadamente Cr$ 
9.600 bilhões), e lançou em janeiro, 
as sementes para a implantação da Rede 
Nacional de Ensino e Serviços de Infor¬ 
mática, Renesi. 

A primeira unidade da rede/Servi¬ 
mec foi inaugurada no Rio de Janeiro 
associada a duas outras empresas: a Ne¬ 
gócios Brasileiros de Informática — NBI 
e a Planejamento, Projetos e Sistemas, 
PPS. O objetivo dos diretores da empre¬ 
sa é ligar as principais capitais do Brasil 
On-Line com a sede em São Paulo, para 
fornecer à comunidade local, serviços 
(bureau, comercialização de equipa¬ 
mentos, consultoria, planejamento e 
assessoria), educação e ensino. 

Na primeira unidade da Renesi fun¬ 
cionarão 10 microcomputadores 1-7000 
12 TK-85, seis terminais de vídeo Bur- 
roughs ligados à central, via linha telefô¬ 
nica — privada — e um terminal impres¬ 
sor; além de 20 professores e uma equi¬ 
pe de psicólogos. A empresa instalou 
quatro salas de aulas, um show-room 
que terá várias marcas de computadores 
em demonstração. O setor de prestação 
de serviços em consultoria e assessoria 
(o bureau de serviços) só estará em fun¬ 
cionamento a partir do segundo semes¬ 
tre, pois até lá estará em fase de im¬ 
plantação, com o intuito de expandir a 
base instalada de equipamentos, con¬ 
tratando no momento, computadores 
IBM. 

O objetivo da rede/Servimec, se¬ 
gundo Antonio Barrio Junior — diretor 
superintendente, é levar à comunidade 


local os recursos tecnológicos e estrutu¬ 
rais dos grandes centros (por exemplo, 
São Paulo), através de microcomputa¬ 
dores e terminais interligados com as 
principais cidades do país. Para isto, a 
empresa oferecerá na área educacional, 
cursos como COBOL, BASIC e BASIC 
Avançado, programas institucionais (co¬ 
mo BÁSIC-Mirim, BASIC-Mulher, entre 
outros) e seminários técnicos para pro¬ 
fissionais. 

A SEDE DA PRIMEIRA 
UNIDADE DO RENESI 

A instalação da primeira unidade no 
Rio de Janeiro gerou, conforme afirmou 
Barrio Junior, um investimento de apro¬ 
ximadamente Cr$ 250 milhões e a previ¬ 
são de faturamento está estimada em 
torno de 25 a 35 mil ORTNs. 

Para conseguir esta meta a empre¬ 
sa instalou a sede no centro do Rio e 
preocupou-se, segundo Antonio B. Ju¬ 
nior, em fornecer aos alunos o mesmo 
apoio e recursos didáticos, inclusive o 
estágio com registro em carteira para os 
melhores alunos (oferecidos pela em¬ 
presa nas escolas de São Paulo). 

Na área de serviços, a Servimec 
pretende utilizar a rede com o sistema 
"timesharing", valorizando o uso do mi¬ 
cro a nível local para depurar informa¬ 
ções e a utilização dos terminais Bur- 
roughs para a transmissão de informa¬ 
ções com grande base de dados. 

Os cursos no Rio de Janeiro já es¬ 
tão recebendo inscrições e as aulas se¬ 
rão ministradas em três períodos: ma¬ 
nhã, tarde e noite. O curso de COBOL 
tem duração de 6 meses, o de BASIC 30 
horas além das aulas práticas nos equi¬ 
pamentos disponíveis. A.L.A. 


ERRATAS 


Reportagem Especial 
(edição n.° 16 ) 


— O nome correto do diretor de di¬ 
vulgação da SUCESU/SP e da ADP 
Systems é Edes Landim e não Edes 
Laudim. 

— No sétimo parágrafo da matéria 
"Graduação e pós-graduação em 
Informática" leia-se: Na USP (curso 
de bacharelado em informática), 
era, igualmente, ao de UFRJ, até o 
ano passado, subordinado ao de 
Matemática. 

— No Box — Uma proposta inova¬ 
dora: a universidade invisível — o 
nome correto do diretor da Apple 
Cursos é Eduardo Previdelli e não 
Eduardo Prividelli. 


CALENDÁRIO 

11 a 13/2 — Como projetar, de 
senvolver e operar sistemas de dados 

— Seminário da Compucenter. São 
Paulo, SP. Telefone: (011) 255.5988. 

24/02 — Digitação (20 horas) — 
ADP Systems. São Paulo. Telefone: 
(011)227.4433. 

25/02 - DOSA/SE - Idem Acima. 

25/02 — BASIC em microcompu¬ 
tadores — ADP Systems — Idem aci¬ 
ma. 

11 a 15/3 — Engenharia da Infor¬ 
mação — Seminário Compucenter. 

20 a 23/3 — Micro-Festival/SP — 
Guazelli‘Associados. Informações: (011) 
285.0711. 

28 e 29/3 — Tecnologia de Com¬ 
bustão — Seminário da ABACE — 
Associação Brasileira de Administração 
e Conservação de Energia. Telefone: 
(011)285.2490. 

25/03 — Básico de Programação 
IBM — ADP Systems. 

25/03 - COBOL IBM - ADP 
Systems. 

11 a 14 de março — Wordstar — 
carga horária: 12 horas. Compushop — 
São Paulo. Informações: (011) 815- 
0099/852-3366. 

26 a 27/3 - LOTUS 1, 2, 3 e Intro¬ 
dução ao PC — carga horária: 16 ho¬ 
ras. São Paulo. Informações: Idem aci¬ 
ma. 
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TKs-85 já podem conversar 



Um modem desenvolvido 
por um jovem engenheiro eletrô¬ 
nico, que permite a conversação 
entre os micros TK-85, via linha 
telefônica, está fazendo a cabeça 
de seus usuários. 0 EES-07 foi 
desenvolvido por Antonio Paulo 
Hawk nas suas horas de folga 
devido a sua frustração em não 
poder ter acesso a interfaces que 
lhe permitisse tal feito. 

Antonio Paulo faz questão 
de dizer que o micromodem não 
foi projetado, pois ele aproveitou 
o que já estava pronto. No iní¬ 
cio, tentou passar os sinais dire¬ 
tamente sem mexer no sinal digi¬ 
tal, mas depois percebeu que se¬ 
ria melhor utilizar os recursos in¬ 
ternos do micro. “Com a saída 
para fita cassete surgiu a possi¬ 
bilidade de aproveitamento do si¬ 
nal modulado existente, bastan¬ 
do apenas balanceá-lo, filtrá-lo e 
jogá-lo na linha telefônica", res¬ 
saltou. Como a linha telefônica já 
é balanceada, o invento de Hawk 
serve como um instrumento de 
comunicação entre os TKs dis¬ 
tantes, eliminando a interferên¬ 
cia de ruídos e tornando viável a 
transmissão dos sinais digitais 
junto com os elétricos. 

A preocupação central de 
Antonio Paulo no desenvolvi¬ 
mento do modem foi com o cus¬ 
to final do periférico, para que 
este não fosse repassado ao 
usuário final de um micro como o 
TK-85. Assim sendo, o enge¬ 
nheiro investiu na produção de 
um lote de 300 peças, sendo que 
a partir da publicação de uma 
matéria em um grande jornal de 
São Paulo, já foram vendidas, 
por telefone, 60 peças. Atual¬ 
mente o micromodem está sen¬ 
do comercializado nas lojas da 
Áudio a um preço de 10 ORTNs. 


Trocando programas via 
telefone 

O funcionamento do EES-07 
é bastante simples. Conectado à 
saída do gravador e ligado na li¬ 
nha telefônica, o modem permi¬ 
te ao usuário a troca de progra¬ 
mas utilizando apenas, além de¬ 
le, um gravador para a recepção 
(através da instrução "hold" do 
aparelho e LOAD do micro) e en¬ 
trada de dados (RX do modem e 
SAVE do TK), além da utilização 
de funções e programas espe¬ 
ciais. 

Mas, segundo o inventor, o 
micromodem pode ser utilizado 
também para conversação entre 
micros de outras linhas, que pos¬ 
suem saída para gravador, como 
o TRS-80 e Apple, dependendo 
porém da compatibilização do 
formato dos sinais emitidos, efe¬ 
tuada por Hawk em sua empre¬ 
sa de serviços de nacionalização 
e transformações de equipamen¬ 
tos na área de eletrônica. 

Hawk acredita que seu in¬ 
vento será bastante difundido a 
partir do momento em que os 
grupos de usuários — como os 
clubes de micros — descobrirem 
sua grande utilidade. Para ele, o 
EES-07 abre perspectivas para 
um maior intercâmbio entre os 
usuários deste tipo de micro. 
"Um clube de micros com mil 
programas tem grande campo de 
atuação com o modem, devido 
ao seu baixo custo, facilidade de 
manuseio e aplicações para a tro¬ 
ca de programas entre os usuá¬ 
rios, por exemplo", complemen¬ 
tou. 

Outros projetos 

Sempre pensando em um 
entrosamento entre os usuários, 
Hawk chegou à idéia de desen¬ 
volver outros periféricos que pu¬ 
dessem permitir a estes, acessar 
serviços como o Cirandão e o Vi¬ 
deotexto. 


Para isto, ele desenvolveu 
uma interface baseada em um 
modelo inglês que permite a 
usuários do TK e outros micros, 
acessar o serviço Cirandão da 
Embratel — Empresa Brasileira 
de Telecomunicações. 

Antonio Paulo Hawk já 
montou a interface, porém a 
maior dificuldade que tem en- 
contrato é com relação à impor¬ 
tação do circuito integrado. Con¬ 
forme afirmou, os únicos cami¬ 
nhos encontrados por ele, para 
conseguir o Cl, foi através de 
contrabando. 

"A interface obedece o 
mesmo plano de desenvolvimen¬ 
to do micromodem e seguirá a 
mesma preocupação: ser acessí¬ 
vel ao pequeno usuário, princi¬ 
palmente em termos de custo". 
A.L.A. 


Sistemas de Vendas 
da Xerox 

PSS II — Professional Selling 
Skills é o primeiro de uma linha de 19 
produtos a serem comercializados pela 
Xerox e que apresentam uma imagem 
diferente da empresa no mercado brasi¬ 
leiro. O PSS II é um sistema de treina¬ 
mento em vendas, envolvendo adminis¬ 
tração e gerenciamento em vendas e 
será representado no Brasil através de 
uma empresa subsidiária, a TDX/Xerox. 

A TDX vem atuando no mercado de 
treinamento de pessoal nos Estados Uni¬ 
dos há aproximadamente 20 anos e, 
conforme disse Frederico Luiz Oliveira 
Lima, gerente de operações comerciais, 
das 500 maiores empresas citadas pela 
revista Fortune americana, pelo menos 
422 utilizam o sistema da Xerox. 

"O PSS II é formado por uma série 
de técnicas de vendas do mais alto nível 
e a maior prova é o know-how do nome 
Xerox", afirmou Frederico. 

O sistema estará à disposição das 
empresas nacionais, segundo Frederico 
Lima, de três formas distintas: seminá¬ 
rios abertos e fechados (as empresas 
contratam os serviços da TDX/Xerox e 
esta envia seus instrutores para o treina¬ 
mento dos respectivos profissionais) e 
através da venda de "kits" de treina¬ 
mento, fornecendo assim, a tecnologia 
de vendas da empresa. Desta forma, a 
Xerox treina os futuros instrutores dos 
profissionais das empresas. A.L.A. 
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EDITORIAL 


O uso do computador como meio de ex¬ 
pressão artística é um assunto que pode ge¬ 
rar muita polêmica. 

Será que o que o computador produz é 
arte? Recentemente ouvi um disco de música 
composta por computador, mais precisa¬ 
mente por um IBM 370. Isso me pareceu 
uma massa sonora formada por sons distri¬ 
buídos de maneira muito artificial. Entretan¬ 
to, estas músicas tinham um mérito: de 
quando em quando, uma ou outra frase me 
parecia um achado musical que, infelizmen¬ 
te, logo sumia no meio de um mar de sons. 

Recentemente discutimos a possibilida¬ 
de do computador pensar. Agora o problema 
reaparece de forma diferente. O computador 
é capaz de produzir uma obra de arte? 

Essa pergunta precisa ser bem examina¬ 
da. O computador pode ser usado como um 
meio ou um instrumento de produção artís¬ 
tica, tal qual uma câmara fotográfica. Neste 
caso, o computador substitui os meios tradi¬ 
cionais de expressão: o pincel do pintor, o te¬ 
clado do pianista ou a máquina de escrever 
do escritor. É neste sentido que trabalhamos 
para produzir este número, elaborando al¬ 
guns programas que transformam o compu¬ 
tador num instrumento musical, como um 
piano eletrônico ou uma caixa de música. 

Uma outra forma de usá-lo é como uma 
' fonte de inspiração''. 

Tomemos o exemplo das músicas com¬ 
postas pelo IBM 370. Se o seu conteúdo ge¬ 
nérico é duvidoso como obra de arte, certos 
trechos, quando localizados em outra músi¬ 
ca, podem ser expressivos. Ou seja, um com¬ 
positor pode usar o computador para simpli¬ 
ficar seu trabalho intelectual de procura da 
frase musical adequada. Pode, num momen¬ 


to em que um trecho musical de sua autoria 
“pede'' uma frase complementar, ouvir um 
número de frases compostas ao acaso pelo 
computador e escolher uma delas que mais 
se adapte ao seu trabalho. 

O terceiro modo é transformar o compu¬ 
tador num artista. Aqui é que entramos num 
terreno perigoso. Entretanto, de uma forma 
geral, é o mesmo problema que enfrenta¬ 
mos ao decidir se uma obra vanguardista é 
ou não arte. De qualquer maneira, acredita¬ 
mos que a arte ainda é um reduto humano e 
que um computador, por não ser humano, 
não pode produzi-la. E se um determinado 
número de pessoas julgar que uma obra pro¬ 
duzida por um computador, sem conhecer 
este fato, é arte? 

O que eu pretendo com este Editorial é 
lançar uma dúvida na cabeça do leitor. Isso 
gerará uma atitude crítica e quem se detiver 
em fazer conjeturas talvez não se surpreenda 
em ver um concerto para computador e or¬ 
questra, escrito pelo próprio computador ou, 
pelo contrário, se isso nunca ocorrer. 
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CARTAS 


Réu confesso na 
Investigação Policial 


Caro Editor, 

Aceitando sua sugestão, dirijo-me à 
seção de Cartas com algumas correções 
ao programa “Investigação Policiar'. 0 
objetivo é, de um lado, colaborar com a 
impressão que saiu defeituosa, dificul¬ 
tando ao leitor — principalmente ao que 
se inicia ou tem preguiça de deduzir — 
e quanto às modificações introduzidas à 
revelia de seu autor. 

Assim sendo, no programa II ca¬ 
bem as ressalvas: 

Figura 1 

(cancelar as linhas 530 e 550 do pro¬ 
grama impresso) 

Figura 2 

O leitor atento notará que, além de 
detalhes de mensagens que este autor 
faz questão que sejam mantidos, os la¬ 
ços de tempo (FOR-NEXT) foram redu¬ 
zidos na revisão da Redação. Mantenho 
que — embora eu mesmo seja treinado 
em Leitura Dinâmica e espante meus 
colegas pela velocidade com que leio e 
apreendo um texto — devemos colocar 
tempos mais longos no vídeo (um meio 
diferente do papel impresso), ao qual a 
maioria dos nossos “consumidores" de 
programas — os amigos* parentes, co¬ 
legas — não está acostumada a ler rapi¬ 
damente. Note ainda o leitor a linha 360, 
corretamente substituída pela Redação, 
porém fugindo ao meu objetivo: intro¬ 
duzir o leitor a este detalhe de lógica 
Booleana (IF NOT), tão pouco empre¬ 
gado, e a nosso dispor no teclado dos 
micros compatíveis com o TK 83/85. 

Aproveitando este contato com os 
leitores — além daquele através de meus 
programas publicados neste veículo — 
para externar de público meu agradeci¬ 
mento à equipe produtora de Micro- 
hobby, ao apoio e simpatia de seus inte¬ 
grantes. O leitor não desconfia — nem 
de longe! — a grande sensibilidade que 
se esconde detrás dos bits, bytes, FOR, 
INKEY$ e o mais que segue dessa sim¬ 
pático grupo. 

Deixem-me aproveitar para desejar 
a todos um fantástico ano de 1985, 
pleno de SAVE, PLOT, RUN e LOAD, 
com um mínimo de GOSUB, RETURN e 
PAUSE! 

Nilson Martello — São Paulo SP 



50 

L57 

T = INT <RND*15) +6 


320 

IF 

B = 1 AND 5 =A OR B=3 AND 3 


=A THEN 

PRINT "ENCONTROU A ARMA. 


330 

IF 

S=A THEN LET AA=1 


340 

IF 

B =2 AND 5=D OR E=3 AND S 


=D 7HEN 

PRINT "ENCONTROU AS DIGI 


7 H15 . 




350 

’ IF 

S =D THEN LET AD = 1 


360 

IF 

NOT AA AND NOT AD THEN P 


RIN7 

"NÃO HA NADA AQUI..." 


370 

FOR 

N=1 70 150 


520 

GÜ70 700 

Figura 1 


64-0 PRINT h7 10 , I4-; " 51551 “; hT S 

'730 PRINT AT 10,5;“DESEJA OUTRA 
AUENTURA ?" , •* íS/N) “ 

760 PRINT AT 15.0;“ENTRO MEUS I 
NTEGRADQS" "AGRADECEM. . . " 

770 FOR N=1 TO 150 
1010 FOR N =1 TO 120 
104-0 PRINT AT 8.0; "SE U. ENCONTR 
AR A TEMPO A ARMA DO CRIME E A 
5 IMPRESSÕES DIGITAIS" 

1050 FOR N = 1 TO 150 
1060 NEXT N 

1070 PRINT AT 11,0;"O CRIMINOSO 
SERA* APANHADO.POREM CAUTELA:ELE 
ESTARA* DE OLHO EM UOCE..." 

1030 FOR N = 1 TO 180 Figura 2 
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Caro Martello, 

Sua dedução estava correta e o cul¬ 
pado pelas modificações aqui se apre¬ 
senta. Embora as modificações que fize¬ 
mos o tenha desagradado (e com ra¬ 
zão), nosso intuito foi apenas melhorar 
(boas intensões são atenuantes?). Publi¬ 
camos sua carta aqui para que nossos 
leitores tenham oportunidade de veri¬ 
ficar como você concebeu originalmen¬ 
te o jogo antes de nossa intervenção. 

Por outro lado, em uma próxima 
oportunidade, quando julgarmos neces 
sá rio alguma alteração, entraremos em 
contato primeiramente com você. Desta 
forma, evitaremos que alguns de seus 
cabelos sejam arrancados. 

Quanto a humanidade por trás da 
Microhobby, julgamos que você, com 
seus artigos e programas, também con 
tribui para a humanização dos bits e 
bytes que compõe as páginas desta 
revista. 

O Editor 


TK 2000, TKS 800 
e Sugestões 

Sou assinante da Microhobby des¬ 
de o número 2 e tenho observado a 
constante melhora da revista a cada 
mês. Parabéns. 

Tenho algumas dúvidas e suges¬ 
tões que gostaria de expor a vocês e, 
eventualmente, a outros leitores da Mi¬ 
crohobby. 

Dúvidas: 

1) Dentre o TK 2000, o TK 2000 II e 
o TKS 800, qual o melhor? Obviamente 
para esta comparação, contariam os 
preços, a memória, resolução, etc. 

2) Programas feitos para o TK 83 
rodam no TK 2000 e/ou no TKS 800? 

Sugestões: 

1) Poderiam fazer duas seções 
mensais com o seguinte conteúdo: 

— análise de novos computadores 
(Comodore, Macintosh) 

— a história da Computação. 

2) Acho também que seria melhor 
publicar mais programas aplicativos do¬ 
mésticos. 

3) Também seria importante, na 
minha opinião, que fizessem uma tabela 
de conversão para as funções dos se¬ 
guintes computadores: TK/APPLE/ 
TRS 80/Sistema 700. 

Paulos Cezar P. R. Camarion 

Rio de Janeiro RJ 

Caro Paulo Cezar, 

Agradecemos primeiramente os 
elogios que nos faz. Quanto aos com¬ 
putadores TK2000II e TKS 800, temos a 
informar que: 

a) O TK 2000II é inteira mente com 
patível com o TK 2000, com a diferença 
básica de que o TK 2000 é apresentado 
em três versões: 48, 64 e 128 k e os mo 
delos com menos memória podem ser 
expandidos até 128 k. 

b) O TKS 800 é compatível com o 
Color Computer da Radio Shack. 


c) Ambos os computadores têm 
capacidade para trabalhar com gráficos 
coloridos, som e alta resolução. 

d) Não há possibilidades de se in¬ 
dicar o melhor, pois ambos são desti¬ 
nados a públicos diferentes. O TK 2000 
II tem a possibilidade de admitir um dis¬ 
quete, expansível até 128 k e admite 
apenas o sistema operacional TKDOS 
(bastante semelhante ao DOS 3.3 do 
Apple). O TKS 800 admite até quatro 
disquetes e roda, além de seu sistema 
operacional, o CP/M. 

Diante disto, o melhor que você 
tem a fazer é examinar ambos os equi¬ 
pamentos "ao vivo" ou aguardar a aná¬ 
lise que faremos de ambos os compu¬ 
tadores em breve e, então, escolher qual 
o melhor que lhe convém. 

Uma de suas sugestões já foi reali¬ 
zada: nas edições 15 e 16 falamos sobre 
o Macintosh, com detalhes, na seção 
"Por Dentro do Apple". 

Programas aplicativos surgirão 
sempre que possível. Aguarde! 

A seção Vice-Versa tratará das tra¬ 
duções de comandos e instruções de um 
computador para outro. Uma simples 
tabela de conversão não basta, em vir¬ 
tude da diferente organização de tela, 
memória, uso de instruções, etc. 


TKS 800 eTK 2000II 
e A Volta do 
Barão Vermelho 


Gostaria de parabenizá-los pelo óti¬ 
mo trabalho desenvolvido até hoje por 
vocês da Micromega. Sou leitor assí¬ 
duo desta revista e espero que conti¬ 
nuem assim, ensinando e auxiliando to¬ 
dos os TKmaníacos, como eu. 

Gostaria de saber o seguinte: 

1) Soube do lançamento do TKS 
800 e que um novo TK 2000 irá entrar em 
ação. Como será este computador? 

2) De onde e como surgiu a idéia 
da Microdigital colocar as iniciais TK em 
seus computadores? 

3) Rodei o programa "A Volta do 
Barão Vermelho" e pouco depois de 
atingir o alvo, meu TK "saiu do ar". O 
que houve? 

Wladimir Pereira Batiston 

Campinas SP 


Caro Wladimir, 

Como já dissemos, o TK 2000 II é 
fundamentalmente o mesmo TK 2000, 
só que apresentado em três versões: 
com 48, 64 e 128 k, com possibilidade de 
expansão de memória (até 128 k). O 
aspecto geral da máquina será o 
mesmo, mudando apenas a cor. 

O nome TK vem de um de seus cria¬ 
dores, o sr. Thomas Kovari, atualmente 
um dos diretores da Microdigital. 

Quanto ao Barão Vermelho, nós o 
testamos e não tivemos problemas. Ve¬ 
rifique se você não cometeu nenhum 


erro de digitação e confira os códigos 
em linguagem de máquina. Deve ter ha¬ 
vido algum engano de sua parte. Por 
outro lado, conferiremos novamente 
este programa. Caso haja qualquer coisa 
errada, nós voltaremos a publicá-lo. 

Capitão Gancho, Mazogs 
e Simulado de Vôo 

(...) Bom, escrevi principal mente 
por um motivo: li nos números 5 e 6 da 
revista Microhobby o artigo: "Proteção 
Jurídica de um Programa de Computa¬ 
dor" e notei que três empresas que tra¬ 
balham com software para computado¬ 
res compatíveis com o TK 83/85, estão 
comercializando os mesmos programas, 
embora com nomes diferentes. 

Eu queria saber se isto é proibido ou 
não. Quem foi o primeiro fabricante a 
comercializar o Mazogs? Este software 
está sendo comercializado por três em¬ 
presas, cujo nome omitirei. 

Aproveitando o momento, gostaria 
de perguntar duas coisas: 

1) No programa Mazogs, quando já 
tenho o tesouro e estou em busca da 
saída, eu posso comprar uma espada? 

2) No Simulador de Vôo, às vezes, 
quando o avião cai, surge a mensagem: 
"Pôs o avião em stalf 

O que isto significa? 

Fábio Ferreira de Paulo 

Osasco SP 

Caro Fábio, 

A origem do programa Mazogs é 
inglesa e as firmas que o comercializam 
fizeram adaptações e modificações sig¬ 
nificativas no softwate. No momento 
que isto ocorreu (tradução e adaptação 
do software), não havia uma legislação 
específica sobre software no Brasil, de 
forma que nenhuma das empresas é de¬ 
tentora dos direitos de exclusividade de 
fabricação deste programa, de forma 
que não se configura a pirataria entre 
elas, já que a fonte é a mesma. Além 
disso, pelo menos a versão que conhe¬ 
cemos e comentamos na revista número 
8, apresenta uma boa adaptação do jogo 
inglês, demonstrando que pelo menos a 
empresa em questão investiu tempo no 
estudo do software. 

Quanto às suas dúvidas no progra¬ 
ma Mazogs, se você já está com o te¬ 
souro, você só pode pegar uma espada 
se trocá la por ele, ou seja, deve deixá-lo 
no lugar da espada, lutar com o mons¬ 
tro, arranjar outra espada e trocá-la no¬ 
vamente com o tesouro. 

No Simulador de Vôo, por o avião 
em stall significa fazê-lo perder a sus¬ 
tentação por diminuir excessivamente a 
velocidade, ou se, por acaso, o motor 
encrencar, ocorrendo então perda da 
sustentação (a única forma do avião en¬ 
crencar no Simulador de Vôo é o tér¬ 
mino do combustível). Para evitar este 
tipo de acidente, você deve manter a 
velocidade compatível (acima de 90 km 
por hora) com a sustentação, tomando 
cuidado também com o combustível. 
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Linha REM ... revisitada 

Tenho comprado a revista Micro- 
hoby desde o seu início e costumo rodar 
todos os programas que são apresenta¬ 
dos e não tenho encontrado muitos pro¬ 
blemas para digitá-los, a não ser com "A 
Linha REM", apresentada na Microhob- 
by n? 7. 

Estou precisando de uma linha 
REM com 3.000 pontos e tentei rodar o 
programa sem conseguir resultado. A 
cada tentativa, o programa cria uma 
linha REM com espaços em branco e re¬ 
pete a linha 3 REM duas ou mais vezes, 
distorcida e com palavras pela metade. 
Digitei o programa por diversas vezes e 
o resultado foi o mesmo. 



A Unha 1 REM contém apenas dois 
pontos. E/es conterão o comprimento da 
Unha 2 REM, que será criada após você 
fornecer os dados necessários ao com¬ 
putador. As Unhas 8 e 9 se encarrega 
rão de co/ocar este va/or no endereço 
correto. A Unha 10 chama uma sub-ro- 
tina da ROM que servirá para criar a li¬ 
nha 2 REM com o número de pontos in¬ 
dicado pe/a Unha 1 REM. 

Após ter digitado todo o programa 
rode-o com o número de pontos que de¬ 
sejar, por exemp/o, 3000. NUNCA digite 
zero ou um número de pontos superior à 
memória disponível em seu computa¬ 
dor, pois isto causará CRASH! 

Elimine as Unhas desnecessárias e 
digite o programa que você deseja e 



Conferi o programa digitado a cada 
tentativa e estava de acordo com o pu¬ 
blicado. 

Francisco Antonio Kaupa 
São Paulo - SP 


Caro Francisco, 

Ao invés de tentarmos corrigir o 
programa publicado na revista 7, 
faremos melhor, vamos publicar aqui 
uma versão mais simples do mesmo pro 
grama, para o TK85 de 48K. 



pronto! 

Mais um aviso: se você rodar este 
programa pela segunda vez, aparecerá 
outra Unha 2 REM e mais um cursor. Por 
isso, antes de rodá-lo pela segunda vez, 
elimine a Unha criada anteriormente. Se 
você precisar de mais de uma Unha REM 
(vide Barão Vermelho H, publicado na 
revista 13), edite a tinha 2 (naturalmente 
antes de introduzir qualquer código), al 
terando seu número para um maior do 
que 12. Após obter as Unhas REM 
necessárias, elimine as Unhas do progra¬ 
ma e edite-as de acordo com seu pro 
grama. Se por acaso uma delas deva ter 
como número de Unha zero, coloque 1 
como número desta Unha e dê: 

POKE 16510,0 


GRAVADOR 

Tenho um TK 85. Gostaria que me 
ajudassem informando: 

a) Qual o gravador que dá o melhor 
resultado no trato com o micro? Tenho 
um National meio sofisticado, mas que: 

1) Não grava coisa alguma em "hi- 
save"; em qualquer volume, o VU meter 
atinge o nível máximo e quando tento o 
"hiverify", se consigo algum resultado, 
este tem sido sempre a indicação de 
erro. 

2) Obriga-me, nos programas que 
colhem dados em fitas à parte, a diver¬ 
sas tentativas até que os dados entrem 
(. . .). 

Eduvaldo Barbosa 
Rio de Janeiro — RJ 


Prezado Eduvaldo, 

A rigor, não existe qualquer tipo de 
gravador que dê menos problemas, no 
que se refere à gravação/leitura de da 
dos. 

Você pode encontrar uma explica¬ 
ção detalhada nos artigos "Resolvendo 
os velhos problemas com o gravador", 
publicado nas Microhobby 12 e 13 e "A 
Gravação dos Programas", publicado na 
revista 2 e republicado na revista 14. 

Estes artigos recomendam uma sé 
rie de cuidados e fornecem alguns ma¬ 
cetes para gravação e recuperação de 
programas. Entre estes macetes, um em 
particular merece um cuidado especial 
no seu caso: o ajuste do cabeçote. Qual 
quer tentativa de regular o cabeçote de 
um gravador mais sofisticado (um tape 
deck, por exemplo), pode redundar em 
fracasso e tornar o gravador incapaz de 
atingir a mesma performance anterior 
para outro tipo de aplicação (música, 
por exemplo). E, se isso ocorre, você vai 
precisar de um técnico real mente com 
petente para por seu gravador nova 
mente nos eixos. È recomendável você 
comprar um gravador de qualidade ra¬ 
zoável (pode ser um portátil) e usá-lo 
para programas apenas. 

Disco Voador e TK 2000 


Inicialmente gostaria de congratulá- 
los pelos ótimos temperos dessa delicio¬ 
sa revista que é a Microhobby. 

Desejaria saber, também, se é pos¬ 
sível para nós leitores, alterar alguns 
programas publicados na seção "Por 
Dentro do Apple", de forma que pos¬ 
sam ser rodados num TK 2000, pois se¬ 
gundo o manual do TK 2000 existem ba¬ 
sicamente três comandos (IN;# PR;# 
FLASH) que não são executados num 
TK 2000 mas o são num Apple. Toda¬ 
via num programa recente desta seção 
(Disco Voador-publicado na revista 13), 
encontrei dois comandos (SCRN, na li¬ 
nha 280 e POP, na linha 640) que não 
existem no 2000. 

Edgard Veiga Lion Neto 
São Paulo — SP 
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Caro Edgard, 


No que se refere à tradução de pro 
gramas , estamos procurando, sempre 
que possível\ inserir comentários sobre 
modificações de textos ou listagens que 
se fazem necessárias para que os pro 
gramas rodem num e noutro computa 
dor. 

Contudo, há um pequeno equívo 
co: as instruções que você encontrou no 
disco voador , SCRN e POP, existem no 
TK2000. 

A instrução SCRN (X, Y) fornece o 
código da cor das coordenadas X e Y 
p/otadas e POP tem um efeito seme 
lhante ao RETURN, entretanto não exe 
cuta o retorno ao programa principal. 

0 programa, ao invés de retornar ao 
programa principal, uma instrução após 
o ú/timo GOSUB, irá pular para o próxi 
mo GOSUB. 

Quanto a oütras modificações ne 
cessárias, estamos estudando para uma 
futura publicação a versão TK 2000 do 
programa Disco Voador. 


Problemas com o INKEY$ 

Sou proprietário de um TK 2000 e já 
adquiri certa prática no seu manuseio. 
Porém, uma dúvida me impede de de¬ 
senvolver diversos problemas. É o 
INKEY$. 

Na seção "Desgrilando" da revista 
13 foi apresentada uma rotina para subs¬ 
tituir esta função. A minha intensão é 
fazer um programa que escreva na tela o 
número 1 quando eu digitar a tecla 1 e 
quando nada é pressionado, apareça o 
dígito 0. 

Veja o programa: 

10 DATA 32, 67, 240, 133, 58, 96: 
FOR F = 768 TO 773: READ X: POKE 
F,X: NEXT 

20 CALL768 

30 X = PEEK (58) 

40IFX = 1THEN PRINT"1"; 

50IFX = 0THEN PRINT "0"; 

60 GOTO 20 

Entretanto, por mais que eu digitas¬ 
se o 1, só aparecia o zero. 

Qual a forma correta do programa? 
Informo que, antes de digitar o progra¬ 
ma, carreguei o Assembly em 0300. 

Eduardo Camargo 
São Paulo — SP 


Prezado Eduardo, 


Em primeiro lugar, não é necessá 
rio carregar o Assembly para carregar 
este programa em linguagem de máqui¬ 
na, porque isto é feito peia Unha 10 au¬ 
tomaticamente: os códigos estão na ins¬ 
trução DATA e são retirados peia ins¬ 
trução READ e colocados nas posições 
adequadas peio POKE, enquanto é exe¬ 
cutado a ma/ha FOR/NEXT. 

Em segundo lugar, o código da te¬ 
cia 1 é diferente do vaior numérico 1. 
Assim, você deve trocar a Unha 40 por: 

40IFX = 177 THEN PR/NT "1"; 

Ao invés de usar esta rotina, você 
pode também usar o PEEK (39). Assim, 
para seu programa funcionar, retire a li 
nha 10 e 20 e substitua as Unhas 30, 40, 
50, 60por: 

30 X = PEEK (39) 

40IFX = 23 THENPRiNT"1"; 

50IF X = 48 PRiNT "0"; 

60 GOTO 30 

Para descobrir o código das outras 
tecias, digite o seguinte programinha: 

10 PRiNT PEEK (39): GOTO 10 

Rode o e anote um por um o vaior 
das tecias pressionadas, obtendo assim 
uma ta bei a completa. 


LANÇAMENTO 



Terminal com 
teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 
funções gravadas na 
própria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 
externamente. 


Saídas: Expansão memória/impressora 
Fonte externa ou interna 
Rede 

Gravação EAR/MIC 
Chave Liga/Desliga 
Chave 110/220 Vac 
Joystick 



INTER-COL IND. E COM. LTDA. 

Depto. Vendas - Av. Alda, 805 - Diadema (Centro) 
fone: 456.3011 


Linha de Fabricação: 

Chaves comutadoras „ 

Teclas e teclados semi profissionais ^ 

Teclas e teclados profissionais % 



INFORMÁTICA 


VOCÊ QUER APRENDER CORRETAMENTE 
A PROGRAMAR EM BASIC? 


Conheça os cursos da KLAXON 


— BASIC p/ iniciantes e iniciados 

— Cursos intensivos 

• máximo de 2 alunos por micro e 
10 por turma 

• turmas limitadas 


853-4077 


Rua Auriflama, 57 (Alt. do n? 2380 da Av. Rebouças) 
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Música por software para o TK 85 


Gustavo Egídio de Almeida 


Com este programa você poderá criar 
e armazenar músicas em seu computador 
de uma maneira mais completa. Experi¬ 
mente! 


Como você deve ter notado, neste 
mês estamos apresentando uma série de 
programas e artigos sobre música. Coin¬ 
cidência ou não, isto está ocorrendo nu¬ 
ma época em que a música está toman¬ 
do conta do país, principalmente o rock 
— palavra até mal empregada por mui¬ 
tos conjuntos que proliferam por aqui, 
mas não correspondem a este estilo. 

0 problema é que este tipo de mú¬ 
sica está sendo divulgado em grande 
escala pelos meios de comunicação, 
principalmente as emissoras de FM, e as 
gravadoras multinacionais nos abarro¬ 
tam de músicas com melodias medío¬ 
cres e letras piores ainda, que não con¬ 
tém absolutamente nada de novo ou 
aproveitável, tornando-se totalmente 
descartáveis. 

Porém, nós sentimos no ar que al¬ 
go está mudando e, aos poucos, o rock 
verdadeiro vai penetrando em nossas vi¬ 
das através de jornais, revistas, rádio e 
TV, de maneira mais sólida, provando 
que veio para ficar, deixando de lado o 


As notas musicais que compõem 
uma oitava são: DO, RÉ, Ml, FA, SOL, 
LA, SI e DO. Elas podem ser represen¬ 
tadas por letras, denominadas cifras: 


DO 

RE 

Ml 

FA 

SOL 

LA 

SI 

C 

D 

E 

F 

G 

A 

B 


que uma sociedade consumista sempre 
ouviu, através de esquemas impostos 
pelas gravadoras multinacionais, que 
pensam ser donas da verdade e que, 
assim, estão "preservando a moral e os 
bons costumes". 

Aos poucos porém, o verdadeiro 
rock vem chegando com toda a sua for¬ 
ça e energia, derrubando essas barrei¬ 
ra que, com o passar do tempo vão 
perdendo a sua rigidez, nos mostrando 
o que realmente interessa, ampliando a 
nossa consciência através de seus temas 
concretos, mostrando sua mensagem 
de paz e de esperança para a humani¬ 
dade. 

Conceitos básicos 

Eis aqui um programa onde você 
poderá tocar melodias inteiras, dispon¬ 
do de até duas oitavas completas com 
seus respectivos sustenidos e bemóis. 

Para entender melhor a linguagem 
que vamos falar, daremos aqui alguns 
conhecimentos básicos (figura 1): 


As notas musicais são separadas 
entre si por tons (distância que separa 
uma nota de outra). Entre duas notas 
podem ocorrer outras, denominadas 
sustenidos ou bemóis. Sustenido é a 
elevação de uma nota em meio tom e 
bemol é a degradação de uma nota em 
meio tom (figura 2). 


SUSTENIDOS: 


* * ^ 4 i 

DO RE FA SOL LA 


1/2 TOM 


DO RE Ml FA SOL LA SI 

4_4 

1 TOM 

* REPRESENTA SUSTENIDO 


BEMÓIS: RE b Ml b SOL b LA b Sl b 
^1/2 TOM 

NOTAS: DO RE Ml FA SOL LA SI 
1 TOM 


Figura 2 

Como você deve ter notado, as no¬ 
tas SI e Ml não apresentam sustenidos, 
nem as notas DO e FA apresentam be¬ 
móis. 


O programa 

Agora, após essa rápida introdu¬ 
ção sobre música, vamos ao que interes¬ 
sa: o programa propriamente dito. 

Primeiro você deve digitar uma li¬ 
nha 1 REM com 76 caracteres. A seguir 
você deve digitar o programa da figura 
3. Este programa permitirá a você intro¬ 
duzir os códigos decimais da figura 4. 

Digite agora a listagem a seguir. 

O programa é auto-explicativo, não 
exigindo maiores esclarecimentos. Após 
digitá-lo, grave-o através de GOTO 650. 

Para ouvir os sons criados pelo pro¬ 
grama, aumente o volume da TV ou co¬ 
necte um amplificador na saída MIC do 
computador. . . e bons sons. 



Figura 1 
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I 

10 

15 

20 

30 

40 

50 

50 

REM ........... 

FOR 1=15514 Tü 
SCRÜLL 

PRINT I, 

INPUT N 

POKE I= N 

PRINT PEEK I 
NEXT I 

16590 

Figura 3 


16514 

1 

54 


16515 

0 


16516 

5 


16517 

255 


165 IS 

94 


16519 

175 


16520 

137 


16521 

40 


16522 

14 


16523 

219 


16524 

2 4 


16525 

123 


16526 

61 


16527 

32 


1652S 

253 


16529 

211 


16530 

255 


16531 

123 


16532 

61 


16533 

32 


16534 

253 


16535 

24 


16536 

5 


16537 

14 


16533 

7 


16539 

13 


16540 

32 


16541 

253 


16542 

16 


16543 

231 


16544 

201 


16545 

0 


16546 

33 


16547 

43 


16543 

117 


16549 

205 


16550 

132 


16551 

64 


16552 

35 


16553 

126 


16554 

254 


16555 

255 


16556 

32 


16557 

247 


16553 

201 


16559 

33 


16560 

43 


16561 

117 


16562 

124 


16563 

50 


16564 

32 


16565 

73 


16566 

125 


16567 

50 


16563 

33 


16569 

73 


16570 

201 


16571 

53 


16572 

32 


16573 

73 


16574 

103 


16575 

53 


16576 

33 


16577 

73 


16573 

111 


16579 

205 


16530 

132 


16531 

64 


16532 

53 


16533 

33 


16534 

73 


16535 

60 


16536 

50 


16537 

33 


16533 

73 


16539 

201 


16590 

113 


Figura 4 


PROTEJA SEU 
MICRO 




CONTRA: 

- PICOS DE VOLTAGEM 

- TRANSIENTES DE TENSÃO 

- RUÍDO ELÉTRICO 

- INTERFERÊNCIA: 

RÁDIO FREQÜÊNCIA (RF) 

POTÊNCIA: ATINGE ATÉ 1,5 KVA 
TENSÃO: 220V ou 110V 


ZENTRANX 


ELETRÔNICA, INDÚSTRIA E COMÉRCIO LTDA. 

NO BREAK ESTABILIZADORES DE TENSÃO . 

Av. Vitor Manzini, 410/414 
CEP 04745 — Santo Amaro — S. Paulo 
Tels.: (011) 522-2159 e 548-0651 



SOFTWARE 


apresenta novos fitos com 
desafios emocionantes para você! 


PARA EQUIPAMENTOS COM LÓGICA SINCLAIR 


1. VALKIRIE 

Pilote a nave 
Valkirie e parta 
em busca de dez 
castelos perdidos. 
(Exclusividade 
Ciberne, por 
Divino C.R. 
Leitão). 

E mais: 
GUERRILHA 
CÓSMICA 
eZOR. 



2. MERCADOR DOS 
SETE 
MARES 

No século XIX 
você percorre o 
mundo a bordo 
de seu navio, em 
busca de bons 
negócios. 

E mais: 

CORRIDA MALUCA e PINBALL 
(Exclusividade Ciberne, por Divino 
C.R. Leitão). 



3. SUBESPAÇO 

Implacável 
caçada espacial. 
Totalmente 
ráiico. 
mais: 

CAVERNAS DE 
MARTE 
(Exclusividade 
Ciberne, por 
Divino 

C.R. Leitão) e COMBOIO 
ESPACIAL. 



4. DEFENSOR 3D 

Livre nosso 
planeta de uma 
invasão 
alienígena. 

Fantásticas 
simulaçóes 
tri dimensionais 
E mais: Q'BERT 
(Exclusividade 
Ciberne, 
por Divino C.R. Leitáo) e 
ASSALTO 



5. ROT I - PLUS 

• S.O.G. 

Sistema 

operacional, com 
linguagem 
gráfica. Infinitas 
opções de uso. 

Totalmente em 
código de 
máquina 

(Exclusividade Ciberne, por J. Magal). 

• MERGE 

Possibilita a junção de vários 
Droqramas. uns aos outros. 



6. APLIC1 

• COMP CALC 

Rápido, eficiente e totalmente em 
código de máquina. A melhor versáo 
do já famoso Visi-Calc. 

• COMP ARO 

Programa gerador de arquivos. 
Totalmente em código de máquina. 
Modele fichas e as acesse pelo 
campo que quiser. 

• COMP TEXTO 

De fácil manipulaçáo, totalmente em 
código de máquina. 


PARA EQUIPAMENTOS COM LÓGICA TRS-80 


1. SIMULADOR DE VÔO 

Totalmente 
gráfico e 
acompanhado 
de livro de 
instruções, com j 
diagramas, 
tabelas etc. 

E mais: 

PINTOR 
MALUCO e 
O DESAFIO DA 
GALINHA. 


2. XADREZ 



O mais 

tradicional dos 
jogos, 

reeditado em 
nova e 
brilhante 
versáo. 

E mais: 

PATRULHA 
ARMADA 
e PÂNICO 
(totalmente sonorizados). 

























1 RE M Q .* COPY ?HBC: <= RETURN 
<4 CLERR PEEK COPY 7X4 CLERR / 
"*$4 CLERR ( SCROLL TRN 5K7LN 
ID 7 5K 77M4- 7 7M5 7T RN U477U577LN ^ 
'NDU57UM57TRN 
5 SLOUI 

IO PRINT TR5 5; 1, MUSICfl POR 5ÜF 
TURRE” 

20 PRINT RT 7:0; 

RRMR, UÜCE PODE 
DIRS DISPONDO DE 
URS COMPLETRS.” 

30 PRINT RT 21.5 
ENTER >” 

40 PRINT RT 21.5 
ENTER <” 


•COM ESTE PROG 
EXECUTRR MELO 
RTE DURS OITR 


50 IF INKEY $ =' 
60 CL 5 

65 PRINT » 


;"< PRESSIONE 
;”> PRESSIONE 
THEN GOTO 30 



70 FOR F =0 
30 PRINT ”íj 


TO 1 


90 NEXT F 
100 PRINT * 


105 PRINT 



FOR F =0 TO 1 
120 PRINT 1 
130 NEXT F 

140 PRINT RT 2.25: ”TECLRS” 
150 PRINT RT 5,25; ,, CIFRRS" 
160 PRINT RT 10.0;” 2 3 5 


1 * 


G H J‘ 
N M = 


170 PRINT ”0 W E P: T Y U 
OITRUR” 

130 PRINT . . , . ” S D 
190 PRINT ”Z X C U 5 
OITRUR” 

200 PRINT RT 17.0; ;i PRRR TOCRR T 
ECLE T” 

210 PRINT : . ”PRRR REPETIR R MtL 
ODIR TECLE R” 

215 PRINT , . ”PRRR UOLTRR RO MEN 
U TECLE P” 


220 

IF 

INKEY$=”T” 

THEN 

GOTO 

300 

230 

IF 

INKEY$ = :s R” 

THEN 

GOTO 

250 

240 

GOTO 220 




250 

CL 5 





260 

FR ST 




270 

RR ND USR 16546 



275 

SLOU 




230 

GOTO 60 




300 

CL 5 

* 




305 

RRND USR 16552 



310 

FRST 




320 

LET 

HL =30000 



325 

325 

IF 

INKEY$=”” 

THEN 

GOTO 

327 

IF 

INKEY $ = :! P ” 

THEN 

GOTO 

620 

330 

IF 

INKEY$=”0” 

THEN 

POKE 

HL , 

240 






340 

IF 

INKEY*=”2” 

THEN 

POKE 

HL , 

229 






350 

IF 

INKEY $ = : ‘U” 

THEN 

POKE 

HL 

216 





HL , 

360 

IF 

INKEY*=”3” 

THEN 

POKE 

207 




POKE 

HL , 

370 

IF 

INKEY $ = :! E” 

THEN 

195 






330 

IF 

INKEY * = ,: R” 

THEN 

POKE 

HL , 

134 






390. 

IF 

INKEY*=”5” 

THEN 

POKE 

HL , 

173 






400 

IF 

INKEY*=”T” 

THEN 

POKE 

HL , 

165 






410 

IF 

INKEY*=”5” 

THEN 

POKE 

HL , 

156 





HL , 

420 

IF 

INKEY $ = :, Y ” 

THEN 

POKE 


143 


430 

139 

IF 

INKEY*=”7” 

THEN 

POKE 

HL , 

440 

131 

IF 

INKEY * = ”ü” 

THEN 

POKE 

HL 

450 

122 

IF 

INKEY * = ”Z” 

THEN 

POKE 

HL , 

460 

115 

IF 

INKEY$=”S” 

THEN 

POKE 

HL , 

470 

107 

IF 

INKEY $ = ”X :! 

THEN 

POKE 

HL, 

430 

103 

IF 

INKEY*=”D” 

THEN 

POKE 

HL , 

490 

96 

IF 

INKEY * = :, C” 

THEN 

POKE 

HL , 

500 

90 

IF 

INKEY * = :: U ” 

THEN 

POKE 

HL , 

510 

36 

IF 

INKEY* = ”6” 

THEN 

POKE 

HL, 

520 

31 

IF 

INKEY*=”5” 

THEN 

POKE 

HL , 

530 

75 

IF 

INKEY* = :, H” 

THEN 

POKE 

HL , 

540 

72 

IF 

INKEY * = * N ‘ 

THEN 

POKE 

HL , 

550 

63 

IF 

INKEY*=”J” 

THEN 

POKE 

HL , 

560 

40 

520 

600 

610 

620 

630 

640 

IF INKEY $ = !, M” 

RRND USR 1657 
LET HL =HL +1 
GOTO 325 

SLOU 

POKE HL, 255 
GOTO 60 

THEN 

1 

POKE 

HL , 


650 SRUE ”MUSIC$ 
6 6 u S L 0 U 
670 RUN 


Atenção usuários de 
computadores compatíveis 
com o TKS-800e com o 
TRS-Colon 

Na próxima edição iniciaremos uma seção 
destinada a estes computadores, com o 
padrão editorial que você já conhece: 
informações úteis, programas interessantes 
e uma preocupação em, paulatinamente, 
colocá-lo no domínio de seu micro. 

Ligue seu computador, sente-se 
na sua escrivaninha e abra a 

Microhobby 

Seu computador não ficará 
decepcionado. 
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HOBBYSHOP VEJA SE SUA CIDADE TEM O QUE VOCÊ PRECISA 


SAO PAULO 


CURSO 

ASSEMBLER Z-80 PARA SINCLAIR 


com BERNHARD W. SCHON 


O curso começa dia 11.03.85 no SENAC 
INFORMÁTICA. As inscrições 
já estão abertas. Rua Dr. Vila 
Nova, 228 -Tel.: 255-0066. 


1“ undaument-um togicos 



Cibernética, informática 
& Microcomputadores 

Cursos para crianças, jovens e adultos 
Basic I e Basic avançado 

Rua Wanderley, 48Ò — Perdizes — Fone: 62-5385. 



COMPUTADORES 


Cursos Basic, Cobol, Assembler 
A nova maneira de aprender a programar. 

Núcleo I: Av Pacaembú, 1280 — Fone: 66-7656 


-SP. 


EI\JE 


Comércio de Computadores Ltda. 
TK85 x TK2000? 


Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou'CP200 como parte de pagamento. 
TK2000é na ENG. Showroom — Tel. 284-1218. 
Av. Paulista, 1159 - Cj. 611. 


1jM^170 b Í?®9®[) sí sfptn a s 

CURSOS DE BASIC, PLANILHA ELETRÔNICA. 
PROCESSAMENTO DE TEXTOS E OUTROS 

Método moderno, todo apostilado com grande enfoque em sis¬ 
temas. 

Consulte-nos hoje mesmo. 

Rua Pinheiros, 1361 — Fone: 813-8585 — Pinheiros — São Paulo 



OOO MONOUTH 2001 

Eletrônica e Jogos Com. e Exp. Ltda. 
Equipamentos TK85, Elppa II, Elppa Jr. e Color 
64. Jogos em Geral. 

Rua Augusta, 1371 S/L7 — Fone: 268-4370 — 
SP. 


SÃO PAULO 


DATA RECORD INFORMÁTICA 

Cursos, Consultoria, Ass. Técnica e Suprimentos 
Comece 85 programando! 

• Cursos Intensivos 

• Reserva de vagas 

Cursos: Cobol • Basic I e II • Debase II • Aplicativos 
Vantagens: 1 aluno p/ Micro • Professores da USP 

• Estágio garantido • Bolsas de Estudo 

Av. Sto. Amaro, 5450 — Brooklin — Tel.: 543-9937. 


S. BERNARDO DO CAMPO - SP 



H 1’oi.iiiviv 


Software-House especializada no 
desenvolvimento de sistemas e cursos 
treinamento para microcomputadores. 




4» 


r b.V° C.V 


\\ 




sfi 


Filial: R. Domingos J. Ballotim, 46 - 5? cj. 55 - CEP 09700 - S.B. do Campo - Tel. 448-5970 


A POLIVALENTE 
DA INFORMÁTICA: 


ÃfcC COMPUTAÇÃO 

Cursos Basic, Assembler e Cobol. Microcompu¬ 
tadores — Suprimentos, Calculadoras, Órgãos 
Eletrônicos, Software, Microclub. 

Av. Senador Vergueiro, 4962 — 1? andar — Sala 
6 — Rudge Ramos — S. B. Campo — CEP 
09720 - Tel. 455-1940. 


BAHIA 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei¬ 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 


RIO DE JANEIRO 


PROSERV-Processaiento Dados.Cursos e Rep.Ltda. 
.NICRQCQNPUTADORES (Novos e Usados) 

.CURSOS (Cobol. Basic. CP/R. DBase II) 

.SUPRIMENTOS (Fonularios. Disquetes. Fitas, etc.) 

.LIVROS E REVISTAS 

.SOFTWARE (TRS80. Apple. TK85) 

Lq.Nove de Abril 27 salas 626/628 
Tel: (0243) 429800 - V.Redonda - RJ 


MINAS GERAIS 


MICRO F UIl)F O 


Curso de Basic com turmas mensais 

Programas para toda linha de microcomputadores — Sinclair, 
TRS-80, Apple, TRS Color, Comodore CP/M — Aplicativos e Jo¬ 
gos (Solicite catálogo especificando seu equipamento). 

Livros e revistas nacionais e estrangeiros. Venda de Micros, peri¬ 
féricos e suprimentos. Soft House. 

VILLABELLA SHOPPING - LOJA 6 

Avenida Japão, 229 — Cariru — CEP 35160 — Fone (031) 821 - 
2888 — Ipatinga — MG. 












































ANALISANDO 


TK WORD 



Teste e texto final: Álvaro A. L. Domingues 


TK-Word, processador de texto para o TK 

O produto que enfocaremos este mês na se¬ 
ção "Analisando" é um processador de textos pa¬ 
ra computadores compatíveis com o TK 83 com 
expansão , ou TK 85 de 16 ou 48 k, fabricado pela 
Cibertron. 

Um processador de texto desenvolvido para o 
TK 85 demonstra ; mais uma vez, que computado¬ 
res do seu porte não são simples brinquedos, mas 
servem para aplicações sérias, como é este apli¬ 
cativo. 


Escrever qualquer coisa implica num processo interati¬ 
vo em que rabiscamos, alteramos, apagamos, rasgamos inú¬ 
meras folhas de papel até termos algo que nos agrade e que 
seja isento de erros. 

E se você pudesse escrever só a versão definitiva da¬ 
quilo que você está escrevendo? Impossível? Não se você tiver 
um computador e uma impressora. 0 que transforma seu 
computador numa máquina de escrever com inúmeros recur¬ 
sos é um aplicativo chamado processador de textos. Se você 
possui um computador compatível com o Apple, dispõe de vá¬ 
rias versões do Magic Window; se tiver um compatível com o 
TRS-80, uma versão do Scripsit ou do Super Scripsit. E se 
possuir um TK 83 ou 85? 

A Cibertron, empresa paulista de software para o TK 83 
e 85 e seus compatíveis, nos enviou, para análise, um pro¬ 
cessador de textos para esta linha de computadores. 

Apresentação 

A fita vem numa embalagem bastante simples, onde 
constam o nome da empresa, do produto, os computadores 
que rodam o programa e a memória requerida (16 k). 

A fita é’de boa qualidade e, além disso, os fabricantes 
gravaram o programa em ambos os lados, visando uma ga¬ 
rantia de que se uma versão não entrar, existe outra que pode 
cobrir a falha. 

Acompanha um manual em folhas de xerox, muito 
bem explicado, não deixando o usuário "na mão" em nenhum 
momento. Encontramos um erro de datilografia que pode 
confundir o leitor: a palavra RUBOUT aparece associada a 
duas funções diferentes, mas no MENU de funções do pro¬ 
grama este item aparece correto. 

Carregamento e teste do programa 

Não tivemos problemas com o carregamento do pro¬ 
grama, apesar da sua extensão, revelando tratar-se de uma 
boa gravação. 0 programa entra "rodando", mostrando uma 
mensagem inicial. Pouco depois aparece a "janela" de 22 li¬ 
nhas, onde poderão ser escritos os textos. 0 arquivo de texto 
possui um tamanho máximo de 300 linhas e mínimo de 22. 

Testamos o programa digitando o texto da figura 1. 
Durante a digitação tivemos a oportunidade de usar a maio- 
na dos comandos e observar o comportamento do programa. 


Em primeiro lugar, aparece um cursor retângular que 
acompanha a digitação. Quando uma palavra ultrapassa os li¬ 
mites da tela, o cursor muda para quadrangular indicando ao 
usuário que ocorreu estouro da linha. Se o usuário digitar 
mais algumas letra, a palavra inteira é transferida para a outra 
linha e a linha que estava sendo digitada é preenchida com es¬ 
paços entre as palavras, igualmente distribuídos, blocando a 
linha, ou seja, alinhado-a pelas margens ou parágrafos, como 
mostramos nos textos das figuras 1 e 2. 



Neste exemplo testamos todos os comandos e ve¬ 
rificamos o comportamento do "scrolling", da transferên¬ 
cia, da incíusâo e retirada de caracteres e linhas. 


18 MICROHOBBY 














Recursos 


TEXTO PARA UERIFICACAQ DO 
TK-UORD 

U ERIFICARE M O S AL G Ü N S O O MR ND O 5 
ESPECIAIS. 

RS TEOLRS DESTINRDRS R 
D ET E R MIN R D R S F U N O O E S E 
INSTRUÇÕES PERMITE?'! RERLIZRR-SE 
OUTRAS FUNOOES, ESPECIFICAS DO 
PROCESSRMENTO DE TEXTOS COMO, 
POR EXEMPLO: 

LLI ST M O STR fi O Q .L O S SRRIO ; 

:: CENTRALIZA; 

AND PERMITE fi INCLUSÃO DE 
CARACTERESETC.. 

O CAMPO DESTINADO R TEXTO E» 

DE SOO i_INHfiS. 

QUANDO R TELA E»CHEIA, OCORRE 
UM SCROLL fiUTOMfi* TICO PARA A 
LINHA SEGUINTE. PARA PODERMOS 
UER RS LINHAS DO AR QUIU O, 
DtütMOS USAR O COMANDO ieSI=T , QUt 
DA* UM SCROLL., DESCENDO O TEXTO, 

•— t r, n t F >:' T n 


Centralizando. Figura 

O mesmo texto, agora centralizado, mostrando uma 
outra forma de apresentação. 


Durante a digitação pudemos usar vários comandos 
obtidos pela digitação de SHIFT + tecla. 

Estes comandos são redefinições de instruções e co¬ 
mandos BASIC. Algumas destas funções têm alguma asso¬ 
ciação com o seu novo significado (por exemplo AND para 
inclusão de linhas e caracteres) outras não; mas isto é com¬ 
preensível devido à própria estrutura do programa e do tecla¬ 
do do TK 83/85. 


TABELA I — Comandos do TK-Word 


Comando Original 

Nova função 

EDIT 

apaga linha 

AND 

insere linha ou caractere 

THEN 

SCROLL para cima 

TO 

GRAPHICS 

SCROLL para baixo 

(SHIFT 9) 

Inverte/ Desinverte caractere 

RUBOUT 

Apaga caractere 

"GRAPHICS" 
(SHIFT Q) 

"Desacerta" linha 

OR 

LIG/DES "Transferência" 

STEP 

Reacerta parágrafo 

< > 

Centraliza linha 


Desloca frase para direita 


Desloca frase para esquerda 

STOP 

Mostra menu com as seguintes opções: grava, 
programa com arquivo, limpa, grava programa 
sem arquivo ou pára o processamento 

LPRINT 

Imprime arquivo 

SLOW 

Mostra o início do arquivo 

FAST 

Mostra o fim do arquivo 

LLIST 

Mostra este menu 

NEW UNE 

Vai para a linha seguinte 

Setas 

movimentam o cursor 

•* 

Acerta linha 


O TK-Word, apesar de ter sido desenvolvido para com¬ 
putadores pessoais de pequeno porte, tem a maioria dos re¬ 
cursos de um processador de texto de computadores maiores 
(tabela I). Tivemos alguma dificuldade, contornável, em corri¬ 
gir linhas que haviam sido divididas e blocadas, quando se su¬ 
primia letras ou palavras. Um pouco de treino e conheci¬ 
mento do programa permite ao usuário descobrir todas as téc¬ 
nicas para tirar o máximo proveito do aplicativo. 

O texto pode ser gravado juntamente com o progra¬ 
ma, proporcionando ao usuário a possibilidade de arquivar 
vários textos para uso futuro ou, até, como uma forma ori¬ 
ginal de "fono-postal", caso não possua impressora e queira 
se comunicar com outro possuidor do TK. 

O Programa 

O programa possui várias rotinas em linguagem de má¬ 
quina, bastante extensa, o que mostra que seu autor possui 
um grande conhecimento da máquina a nível de Assembly. 
Estas rotinas abrigam a parte principal do programa; em 
BASIC estão apenas algumas rotinas e o gerenciamento total 
do programa. 


A parte em BASIC está bem estruturada, sem o uso de 
memória desnecessária. 

Conclusão 

O programa TK-Word explora ao máximo a capacida¬ 
de do TK 83/85 para o tratamento de texto. Com o uso de uma 
impressora de boa qualidade, ou uma interface para impresso¬ 
ra paralela, pode-se conseguir um sistema de processamento 
de textos barato e relativamente eficiente. 


FAÇA DE SEU MICRO “SINCLAIR” 
UM PROFISSIONAL 



□ Maior dinamismo na entrada de dados 

□ Vida útil maior que 2 milhões de operações 

□ Um TECLADO profissional com switches individuais e 
acondicionamento mecânico 

□ Gabinete em fiber-glass que acondiciona o micro 

SPEED ELETRO ELETRÔNICA LTDA. 

Rua I (i) N.° 395 - Bernardo Monteiro - Contagem - MG 
Tel: Escrit. (031) 463-3171 Fábrica: (031) 351-1887 


REVENDEDORES AUTORIZADOS: (011) 522-4637; (021) 270-9197; 
(081) 326-8814; (0514) 491-323; (084) 231-1055; (091) 223-6319 



















POR DENTRO DO APPLE 


Poucas linguagens de programação 
permitem ao programador trabalhar di¬ 
retamente com valores complexos. Den¬ 
tre as que permitem destacam-se o 
FORTRAN e o PL/I. Embora o Pascal 
não tenha o tipo de dado complexo 
pré-definido, é muito fácil implementar 
para complexos as operações existentes 
para números reais. 

Um número complexo Z pode ser 
representado como par ordenado ou 
como a soma de dois valores, um real e 
outro imaginário, assim: 

Z = (a.b) = a ib 

'TeaT imaginário 

a é chamado de parte real de Z eb é cha¬ 
mado de parte imaginária de Z. 

A própria estrutura dessa represen¬ 
tação algébrica dos números complexos 
nos leva a definir o tipo COMPLEX como 
um registro de dois valores reais: 

TYPE COMPLEX = RECORD 

RE, IM: REAL 
END; 

Para implementar as operações não 
vamos fazer um programa, mas um 
UNIT, que será instalado na biblioteca 
do PASCAL, para depois ser usado por 
qualquer programa. 


Números 

Complexos 


Daniel R. Falconer 
Wilson José Tucci 



Para cada uma das operações bá¬ 
sicas, faremos um procedimento que re¬ 
cebe 2 parâmetros complexos de entra¬ 
da e devolve um complexo que é o resul¬ 
tado da operação: 

operação procedimento 

+ C SOM 

- C SUB 

* CMJL 

/ C DIV 


Para escrever os procedimentos, 
usamos as seguintes relações: 

(a + ib) + (c + id) = (a + c) + i(b + d) 

(a + ib) — (c + id) = (a—c) + i(b—d) 

(a + ib) * (c + id) = (ac— bd) + 
í(bc + ad) 

(a + ib) = (a + ib). (c—id) 

(c + id) c 2 + d 2 

Depois que você digitar e compilar 
o UNIT fornecido, basta instalá-lo na 
SYSTEM LIBRARY, conforme descrito 
nas páginas 186-193 do Apple Pascal 
Operating System Reference Manual. 

A seguir apresentamos a Listagem 
completa para tal implementação, tirada 
na Mônica da Elebra Informática. 


<*$St+) 

UNIT COMOP; INTRINSIC CODE 25 DfiTfi 26; 
INTERFfiCE 


PRÜCEDURE CSUB; 

BEGIN 

Z.RE := X.RE - Y.RE; 
Z. IM := X.IM - Y.IM; 
END; 


TYPE COMPLEX = RECORD 

RE, IM : REftL; 
END; 


UfiR Z ; COMPLEX; 
PRÜCEDURE CSUMCX,Y: 

COMPLEX; 

UfiR 

2:COMPLEX) 

PRÜCEDURE 

CSUBÍX,Y: 

COMPLEX; 

UfiR 

Z:COMPLEX) 

PRÜCEDURE 

CMUL<X,Y: 

COMPLEX; 

UfiR 

Z:COMPLEX) 

PRÜCEDURE 

CDIUCX,Y: 

COMPLEX; 

UfiR 

Z:COMPLEX) 


IMPLEMENTfiTI OH 


PRÜCEDURE CSUM; 

BEGIN 

Z.RE := X.RE + Y.RE; 
Z.IM 2= X.IM t Y.IM; 
END; 


1 


PRÜCEDURE CMUL; 

BEGIN 

Z.RE := X.RE*Y.RE - X.IM*Y.IM; 
Z.IM := X. UH Y.RE + X.RE*Y.IM; 
END; 

PRÜCEDURE CDIU; 

UfiR D : REfiL; 

BEGIN 

Y. IM : = - Y.IM; 

CMUL(X,Y > Z >; 

D ;= <Y.RE*Y.RE+Y.IM*Y.IM); 

Z. RE := Z.RE/D; 

Z.IM := Z.IM/D; 

END; 

BEGIN 

END. 
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Algumas Rotinas 
para Matrizes 


Calculadoras sofisticadas como a 
HP-41, HP-15, TI-58 e TI-59, freqüente- 
mente possuem um pacote para opera¬ 
ções com matrizes, geralmente incluin¬ 
do cálculo de determinantes, cálculo da 
matriz inversa e resolução de sistemas 
de equações. Operações com matrizes 
geralmente envolvem tantas contas, que 
essas calculadoras podem levar vários 
minutos para inverter uma matriz 10*10. 

Por que não usar a velocidade bem 
maior do microcomputador quando este 
estiver disponível? E para isso que apre¬ 
sentamos algumas rotinas para manipu¬ 
lar matrizes, que podem servir de bases 
para seus próprios programas de matri¬ 
zes. Para que você possa experimentá- 
los e usá-los para alguns fins específi¬ 
cos, essas rotinas estão agrupadas em 
um programa que: 

• triangulariza matrizes 

• calcula determinantes 

• resolve sistemas de equações lineares 

A seguir descrevemos o programa 
e, junto com ele, a teoria de matrizes 
que foi usada para desenvolvê-lo. 

Linha 20 — 140: esse é o "programa 
principal". Na verdade funciona como 
um menu para escolher as diversas ope¬ 
rações possíveis que são: 

1 — entrada da matriz A 

2 — edição da matriz A 

3 — triangularização da matriz A 

4 — resolução de sistema 

5 — cálculo do determinante da matriz 

A 

6 — fim 

O menu só aceita números válidos 
(veja as linhas 110e 120). 

Linhas 1000-1130: essa rotina faz a 
entrada da matriz A; perceba que pri¬ 
meiro é obtido o seu tamanho e só então 
ela e outros valores são dimensionados. 
O CLEAR é necessário para apagar a 
matriz A da última vez que essa rotina 
foi utilizada. Como o CLEAR perturba a 
pilha de endereços da sub-rotina, é ne¬ 
cessário voltar para um GOTO. A parte 
realmente interessante são as linhas 
1070- 1120. 

Linhas 2000 — 2150: permitem ver 
e modificar os elementos da matriz A 
depois que ela já foi digitada (é comum 
errar-se pela menos um elemento ao se 
digitar uma matriz grande), a matriz é 
mostrada coluna a coluna; para se modi¬ 
ficar um elemento de uma coluna, basta 
dar o número da sua linha (o que apa¬ 
rece na frente do valor) e dar RETURN. 
O computador pede o novo valor. Para 
passar para a próxima coluna ou acabar 
(se você estiver na última coluna), digi¬ 
te 0e RETURN. 

Essa rotina também pode ser usada 
para ver a matriz A após alguma ope¬ 
ração, como a triangularização, por 
exemplo. 


Linhas 3000 — 3200: faz a triangu¬ 
larização da matriz. A triangularização 
é uma operação fundamental para se 
calcular determinante ou resolver siste¬ 
ma de equações. O objetivo da triangu¬ 
larização é deixar todos os elementos de 
um dos lados da diagonal principal com 
valor 0. Essa rotina zera o lado de baixo 
da diagonal inferior, através das seguin¬ 
tes operações: para as linhas de número 
1 até N —1 substitua as linhas abaixo de 
1 pela própria linha menos a linha 1, 
vezes um fator tal que zere o elemento 
da coluna 1 de cada uma dessas linhas. 

Essa rotina só funcionará se todos 
os elementos da diagonal principal (com 
possível exceção do último), forem dife¬ 
rentes de zero. Se a rotina não funcio¬ 
nar é porque o determinante da matriz é 
0 e o sistema é impossível ou indeter¬ 
minado. Se você editar a matriz depois 
da triangularização, vai perceber que os 
elementos abaixo da diagonal principal 
são diferentes de 0, pois aí foram guar¬ 
dados os fatores multiplicativos. (Mas 
os elementos da matriz A abaixo da dia¬ 
gonal principal são 0). 

Linhas 4000 — 4320: resolução de 
sistemas; depois que a matriz A estiver 
triangularizada, podemos resolver a 
equação Ax = b. As linhas 4020 — 4070 
fazem a entrada do vetor de termos in¬ 
dependentes b. 

Linhas 4090 — 4140: repetem em b 
as operçaões feitas para triangularizar a 
matriz A. 

Linhas 4160 — 4230: calculam o ve¬ 
tor das incógnitas x de baixo para cima, 
utilizando as fórmulas: 


bn 



bi — 2 aijxj 


Linhas 4250 — 4320: imprimem o 
vetor das incógnitas e esperam você 
apertar alguma tecla. Essa rotina só 
4 pode ser executada se a triangularização 
ocorreu e o determinante de A for dife¬ 
rente de 0. Verifique antes. 

Linhas 5000 — 5090: calculam o de¬ 
terminante da matriz A depois que ela 
foi triangularizada; para isto basta multi¬ 
plicar os elementos da diagonal princi¬ 
pal. 

A listagem desse artigo foi obtida 
na impressora Mônica da Elebra Infor¬ 
mática. 



-= INFORMÁTICA 

FINALMENTE 

UMA LISTAGEM CONFIÁVEL 


A melhor opção em programas da lógica 
Sinclair, listados em impressora e 
testados. 

Peça já sua assinatura anual e receba 
gratuitamente uma Pasta-Arquivo para 
seus programas. 

A TROPICAL ainda lhe 
oferece: 

- Microcomputadores e periféricos 

- Suprimentos e acessórios em geral 

- Desenvolvimento, venda e locação de 
programas das lógicas: Sinclair, TRS-80 
e Apple 

- Consultoria e serviços empresariais 


CONSULTE-NOS 
SEM COMPROMISSO 


TROPICAL INFORMÁTICA LTDA. 

AV. NOVA INDEPENDÊNCIA, 281 CJ. 1 

FONE: (011) 533.4971 - CEP: 04570 - BROOKLIN 

SÂO PAULO - SP 


flfcippkz cursos 
o sistemas 

CURSOS COM APOSTILA E 
AULAS PRÁTICAS 

• BASIC para APPLE - Turmas de 12 alunos. 

Lógica de programação. 

• APPLES0FT/D0S 3.3 Turmas de 12 alunos 
Gráficos e arquivos em disco no APPLE 

SISTEMAS APLICATIVOS 
PARA CP/ME APPLE 

• SISADE - Administração Escolar Completa 

• SISMAT - Monitor de aulas em micros (geral) 

• SISFRA - Folha de Pagamento 

• SISCTB - Contabilidade Geral 

• SISCPR - Contas a Pagar e Receber 

• SISEST - Controle de Estoque (vários tipos) 

• SISFAT - Faturamentos (vários tipos) 

• SISCCM - Controle Custos em Metalúrgicos 

• SISCCF - Controle de Transportadoras 

• SISCAR - Controle para Crediários em Geral 

• SIST1C - Controle de títulos de Clubes 

• SISTAM - Controle de tít. de Assist. Médica 

• SISACM - Controle de fichas médicas 
Executamos Sistemas Aplicativos Gerais, 

Criação de Aberturas e Vinhetas publicitárias por com¬ 
putador, sob encomenda. 

MINIS. MICROS E PERIFÉRICOS 

• N0VADATA - ND86MW/ND86E (supermicros e mi¬ 
nis 

• TELSIST - microcomputadores 

• TS1802 - monousuárío com/sem Winchester 

• TS1806 - multiusuário com super Winchester 

• APPLES - diversos, CPU. Drives, Vídeos, Placas 

• GL0BUS - Impressoras de grande capacidade 

• ELGIN - Impressoras matriciais 

• ELEBRA • Impressoras e Mi/dens 
CMA - modens p/Videotexto e Cirandao 

• ITALMA - Móveis para CPDs e escritórios 

RUA SUZAN0, 78 - tel: (011) 853-9457 
01453 - J0IM PAULISTA - SÃO PAULO - SP. 
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LIST 

10 RE 11 UM PACOTE DE ROTINAS 
PARA MATRIZES 
20 HOME 

30 UTAB 3: INUERSE : PRINT "RESO 
LUCAO DE SISTEMAS LINEARES": 
NORMAL 

40 UTAB 5: PRINT "1 - ENTRADA DA 
MATRIZ fi “ 

50 PRINT "2 - EDICA O DA MATRIZ A 

I* 

60 PRINT "3 - TRIANGULARIZfiCflO D 
fi MOTRIZ fi" 

70 PRINT "4 - RESOLUÇÃO DE SISTE 
NR" 

80 PRINT "5 - CRLCULO DÜ DETERMI 
NfiNTE Dfl MATRIZ fi" 


90 

PRINT "6 - FIM" 


1 0 0 

UTAB 15: HTAB 1: PRINT 

“QUAL 


A 0P E R fi C fl0 DESEJADA ? 
Rf:A = UAL <AÍ> 

GET 

11Õ 

IF A = 6 THEN END 


120 

IF fl < í OR A > 5 THEN 

100 

130 

Ü N fi G 0 S U B 1 9 0 0.2 8 8 0.3 0 0 0,4 0 


0 0.5 0 0 0 


14Ô 

G 0 T 0 1 9 


1 0 0 8 

REM DIMENSIONAMENTO 

E 

1010 

REM ENTRADA DA MATRIZ 

H 

1 0 2 0 

REM LIMPAR MEMÓRIA 


1038 

CLEAR : HOME 


104 0 

INPUT "QUAL A ORDEM DO 
EMA ? “?N 

SI ST 

1050 

PRINT : PRINT 


1 0 6 0 

D I M A < N, N), B < N ) * X < N) 


1870 

FOR I = 1 TO N 


1 0 8 0 

FOR J = 1 TO N 


1090 

P R I N T " A ( " ; I ■ “ , M ■ J • “ ) 

“• ii. 

i 1 0 0 

INPUT ""jACI/J) 


1119 

HEXT J 


1128 

NEXT I 


1130 

G 0 T 0 1 0 


2 0 0 0 

REM EDICAÜ DA MATRIZ 

fi 

20 1 0 

FOR J = 1 TO N 


2 8-2 0 

HOME 


2 Õ 3 0 

PRINT “ COLUNA ":J 


2 0 4 0 

PRINT : PRINT 


2 0 5 0 

FOR I = 1 TO N 


2 6 6 8 

PRINT I?" - A(I,J) 


2079 

NEXT I 


2 Õ 8 8 

UTAB 23: PRINT 51 NUMERO 

fi C 0 


RRIG IR <9 PASSA )"? 


2 8 9 8 

INPUT L 


2 18 8 

I F L = 0 G 0 T Ü 2 i 4 0 


2H0 

UTAB 23: HTAB 1: PRINT 

SPC( 


7: 9 ) 



2120 UTAB 23: HTAB 1: PRINT “AC" 
?L? " *“?J?“) ? l! ? : I MPUT " “-A 
(L, J) 

2130 GOTO 2028 
214G NEXT J 
2150 RETURN 

3600 REM TRIRNGÜLARIZflCAO DR 
3810 REM MATRIZ"A 
3820 POR I - 1 TO H - í 

30 38 ; "' r = I t 1 TO N 

384 8 IF fi (I.. I > = 0 THEN 3158 

3 G 5 U = A ( J , 1 ) / R í. i I ) 

3 Õ 6 6 F O R K - I t 1 T Ü N 

3 0 7 0 R < J , K ' = R < J , K > - fi \ I , K ) * C 

3880 NEXT K 

3890 REM GUflRDfi O FfiTOR 

3 1 60 REM MiJLTI PL ICfiTI 00 
3110 R <J, í > = C 

3120 HE V .T J 
3130 HEXT I 
314 0 G 0T 0 3 Z 00 

3150 PRINT : PRINT : PRINT "TRIfi 
NGULARI ZfiCfiG INCOMPLETA" 

3160 PRINT : PRINT ”DET fi = 0" 

317 0 P 0 K E - 16368*0 

3180 KEY = PEEK < - 16384) 

3190 IF KEY < 128 THEN 3180 
3206 RETURN 

4000 REM RESOLUÇÃO DE SISTEMA 
4010 REM ENTRADA DO UETOR B 
4020 HOME 

4930 PRINT : PRINT 

4040 FOR I = 1 TO N 

4 0 5 õ PRINT “ B < “: I ? " > ? 11 • 

4060 INPUT " ":B(D 

4078 HEXT I 

4080 REM OPERfiCGES EM B 

4090 FOR I = 1 TO N - 1 

4100 FOR J = I t 1 TO N 

4 11 0 C = A < J , I > 

4120 B(J > = B(J > - B(I> * C 
4130 NEXT J 

4140 NEXT I 

4150 REM CALCULO DRS INCÓGNITAS 

4160 X(N> = B(N) / fi(N.N) 

4170 FOR I = N - 1 TO 1 STEP - 

i 

4180 SOMA = 0 

4190 FOR J = I + 1 TO N 

4200 SOMA = SOMfl t X( J) * AU* J> 

4210 NEXT J 

4220 X(I) = < B < I > - SOMA) / fi<I,I 
) 
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4230 

NEXT I 





4 24 0 

REM IMF 

RIME 

RS 

RAIZES 

4259 

PRINT 





4260 

FOR I =■ 

1 TO 

N 


4270 

PRINT "X 

(", 

; I; 

" > 

= ":X(I > 

4280 

NEXT I 





4290 

POKE - 

16: 

568 

t 0 


4300 

KEY = PE 

EK 

( 

- 

16384 > 

4310 

IF KEY < 

i; 


THEN 4300 

4320 

RETURH 





5000 

REM CALC 

ULO D 

0 

DETERMINANTE 

5010 

DET = 1 





5020 

FOR I = 

1 TO 

N 


503 0 

DET = DET 

* 

R( 

I, 

n 

5040 

NEXT I 





5059 

PRINT : 

PRINT 

: 

PRINT "DET 


Dfl MATRIZ 

fl 

= 

1» • 

DET 

5 0 6 0 

POKE - 

16" 

r £ 

, M 


5070 

KEY = PEEK 

( 

- 

16384) 

5080 

IF KEY < 

i: 

>8 

THEN 5076 

5 0 9 0 

RE THRN 






r \ 


TENTE ESTA 


Estes são para o TK 83/85 


Daniel Nordemann 

Estes dois programas curtíssimos são para enfeitar a 
tela da sua televisão com quadros animados. Operar em 
Slow. 

1 PRINT PT 21*RND,31*RND;CHR$ 
l D ir H N L> j 

2 RUN 

e: 

1 RLÜT 53+RND+RND,43+RND±RND 

2 UNRLOT 63#RND , 4-3$RND 

3 RUN 

São fáceis de entender e podem ser modificados à 
vontade (diminuir os quadros, usar menos caracteres, até 
um só se quiser, misturar os dois programas, alterar a den¬ 
sidade de caracteres. 


V_ J 






.fU';:.I 


A _ *••• 


Para usuários deTK 82 c,TK 83,TK 85, NZ8000, CP200, ZX 81 e TIMEX 10001 


COLEÇÃO DE 
PROGRAMAS 


BASIC TK 


^ e . 


lyniyy 






Curso didàtíào de 
linguagem Basic 
para iniciantes , 
com muitos exemplos 
e exercícios. 


zenas de programas 
para instrução e 
lazer em 
dois volumes. 


Divirta-se aprendendo 
truques 

de programação. 




Não deixe de ler estes livros, 


Ensina linguagem de 
máquina para 
você tirar o máximo 
proveito 
do seu micro. 




Publicações e Material l 
fone: (011)255-0366 m 






S/m quero receber os livros assinalados 
abaixo: (faça um “X"). 

□ Linguagem de máquina para o TK 
CrS 24.900 

□ Curso de Jogos em Basic TK 
Cr$ 10.900 

□ Coleção de programas Voi I Cr$ 11.900 

□ Coleção de programas Vol. II 
CrS 12.900 

□ Basic TK CrS 15.900 


Envie seu cheque nominal e cruzado, ou 
vale posta para Micromega P. M. D. L tda. 
Caixa Postal54.096 CEP01296 São Paulo 

Nome: _ 

Endereço: _ 

CEP: _ 


Estado: _ 

Assinatura: 


Cidade: 
_ Data: 


Válido até 30/4/B 






























Programa do Leitor 


O Apresentador 

Memória ocupada: 6912 bytes 

Soma Sintática: 28438 

Nível: (2 computadores) 

Computadores: TK-83 e compatíveis 


O Apresentador 


Muito bem, 

Passaram há muito as festas de 
fim de ano e você é um felizardo que 
ganhou um aparelho de video-cassete 
e uma câmera de vídeo no Natal. 

Todas as suas horas vagas são 
agora passadas com o seu novo "brin¬ 
quedo". 

E o seu computador? 

Há algum tempo atrás ele era o 
centro de suas atenções. Agora, ele 
está sendo colocado de lado e esque¬ 
cido. 

Que tal mudarmos este estado de 
coisas? 

Vamos criar dois programas para 
o TK que irão permitir fazer espetacu¬ 
lares títulos e finais para as suas reali¬ 
zações em video-cassete. 

Com isso você vai ter oportunida¬ 
de de dedicar seu tempo livre aos dois 
equipamentos e ainda por cima, vai 
"profissionalizar" as suas obras. 


Com o Apresentador você criará 
uma abertura para seus programas 
com até cinco telas diferentes, para os 
títulos e sub-títulos, que se sucedem 
uns aos outros na tela de sua TV. 

Você vai precisar de algumas ho¬ 
ras de paciência e de empenho para 
entrar com o programa no seu TK e 
verá que no fim terá valido a pena. 

Se você só possui o aparelho de 
vídeo-cassete e ainda não a câmara, 
ainda assim o programa será de muita 
utilidade, pois você poderá fazer aber¬ 
turas para programas gravados direta- 
mente da te levisão. _ 

Introdução da rotina 
_ em código de máquina _ 

a) Entre com o "programa inicial" 
mostrado na figura 1 (Atenção! A linha 
1 REM O APRESENTADOR - (C) 
STEIN deve ser digitada exatamente 
como está, pois nela se alojará a rotina 
em código de máquina). 


Bernardo Stein 

b) RUN o programa e introduza 
com cuidado um a um os valores indi¬ 
cados na "Listagem de códigos" da fi¬ 
gura 2. 

c) Após entrar com os valores, 
apague as linhas 10 e 60 (entre com o 
número da linha e NEW UNE) deixan¬ 
do somente a linha 1 REM que agora 
terá uma nova e estranha aparência. 

Introdução 

do programa principal 

Mantendo a linha 1 REM, entre 
todo o programa da listagem principal 
da figura 3. 

Sugiro armazenar em fita, algu¬ 
mas vezes o programa durante a sua 
introdução, para não perder todo seu 
trabalho em caso de uma falha. 

Uma vez completada a introdu¬ 
ção, armazene o programa em fita en¬ 
trando SAVE "O Apresentador" e 
"NEW UNE" (não entre GOTO 7060). 
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CRIAÇÃO DOS TÍTULOS 


Suponhamos agora que o seu 
apelido familiar seja DINDO e que vo¬ 
cê seja um tio legal que se propõe a 
gravar em vídeo o oitavo aniversário de 
seu sobrinho MARCELO. 

Proceda da seguinte forma: 

1 — LOAD o Apresentador no 
computador e entre GOTO 2000 e 
NEW UNE. Aparecerá o menu abaixo: 
O Apresentador 
Você quer 

1. Criar uma apresentação completa 

2. Fazer / refazer só os títulos 

3. Ver uma apresentação completa 

4. Ver só os títulos 

5. SAVE a apresentação sem/com os 
títulos 

Escolha a opção 1. 

2-0 TK pedirá a você para criar a 
abertura com duas linhas, cada uma 
com até oito letras por linha. 

No nosso exemplo (Figura 5) a pri¬ 
meira linha será DINDO com cinco le¬ 
tras; informe isso ao TK, ele então en¬ 
trará no modo FAST e a imagem desa¬ 
parecerá por alguns segundos. 

Ao ser perguntado, informe ao 
TK que a segunda linha terá quatro le¬ 
tras (no nosso caso, "NEWS"). Com¬ 
pletando a abertura o computador lhe 
mostrará como ela ficou. Se você não 
gostou, entre "N" e repita a abertura. 
Se gostou, entre "S" e o programa 
voltará ao menu. 

3 — Neste ponto, se escolher a 
opção número 5 você poderá armaze¬ 
nar a abertura para usar em outras oca¬ 
siões. Ao dar LOAD ao programa, ele 
irá automaticamente na opção 2 na 
qual você irá criar os títulos. 

4 — Ao invés de SAVE, você po¬ 
derá escolher diretamente a opção nú¬ 
mero 2 e criar títulos que comporão a 
apresentação completa. 

5 — Informe ao computador 
quando ele perguntar quantas telas 
comporão os títulos (no máximo cinco 
telas). No nosso exemplo são duas te¬ 
las (Figura 6 e 7). 

6 — 0 computador perguntará en¬ 
tão quantas linhas terá a primeira tela. 

7 — Agora informe que a primeira 
linha terá sete letras (MARCELO). 

8 — 0 computador então entrará 
no modo FAST e ampliará esta primei¬ 
ra linha. 

9 — Prossiga com as outras três 
linhas: 

2? linha — 3 letras — FAZ 
3? linha — 1 letra — 8 
4? linha — 4 letras — ANOS 

10 — No fim o seu TK lhe apre¬ 
sentará a tela para julgamento. 


11 — Entre"N"se quiser refazê-la. 

12 — Entre "S" se estiver OK. 

13 — Crie então a segunda tela 
(Figura 7): 

1? linha da 2® tela — 1 letra — E 
2® linha da 2® tela — 7 letras — CON¬ 
VIDA 

3® linha da 2? tela — 4 letras — TODA 
4® linha da 2? tela — 6 letras — PATO¬ 
TA 

14 — Julgue a tela depois de concluí¬ 
da. 

15 — Se yocê entrar "S" a apre¬ 
sentação toda estará concluída e você 
poderá admirá-la. 

16 — Entre "M" depois de con¬ 
cluída a apresentação, para voltar ao 
MENU. 

17 — Neste ponto, escolha a op¬ 
ção 5 e "SAVE" no gravador toda a 
apresentação. 

18 — Se em algum momento da 
criação da apresentação o programa se 
interromper, entre GOTO 2000 e esco¬ 
lha a opção 1 ou 2. 


GRA VACÃO DA APRESENTA CÃO 
EM VÍDEO-CASSETE 


Chegou o grande dia. É hoje a fes¬ 
ta do Marcelo. Acorde cedo, faça sua 
ginástica para se sentir disposto. De¬ 
pois monte o seu vídeo-cassete e o seu 
TK conforme o esquema da Figura 9. 
Interligue a saída do computador à en¬ 
trada da antena do vídeo cassete. 

Se o seu vídeo-cassete não tiver 
recurso de "AUDIO DUBBING" (que 
permite a gravação de trilha musical 
em separado) você deverá ligar uma 
fonte de som (microfone, gravador, to¬ 
ca-disco etc. . .) diretamente na entra¬ 
da AUDIO IN (veja também na Fig. 9). 

Carregue o programa "O Apresen¬ 
tador" no computador e coloque uma 
fita (ou disco) na fonte de som. Colo¬ 
que uma fita de vídeo nova no apare¬ 
lho de vídeo cassete. 

ATENÇÃO: Ligue o vídeo casse¬ 
te, sintonize o canal correspondente ao 
canal em que você opera o seu compu¬ 
tador. REGULE a sintonia fina deste 
canal já que ele normalmente não vem 
regulado de fábrica. 

Faça isto até obter uma imagem 
nítida do computador na tela de TV li¬ 
gada ao vídeo-cassete. 

Você poderá então, passar a fren¬ 
te. Coloque o vídèo-cassete em REC- 
PLAY e PAUSE; prepare a fonte de 
som, e deixe o TK no MENU. Já que 
você não tem três mãos, peça a ajuda 
de alguém para soltar o PAUSE do ví¬ 
deo, escolher a opção n° 3 do MENU 
no TK e liberar a fonte de som. 


O RPRESENTfiL>OR 

UOCE QUER, 

1. CRIRR UMR RPRESENTRCRO 
£. ER7.ER/REERZER 05 TÍTULOS 
3. UER UI IR RPOE5ENTRCRO CGMPl ETR 
4-, UER 50 05 TÍTULOS 

S. *' SRUE *' R RPRESEfTTRCPO í>EM/COI“. 
05 TÍTULOS 

Fig. 4 


D IN D O 
N E U S 

aprERpnta 

Fig. 5 
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FIGURA 3 




1 

REM GOSUB ??RNDE£RHD I NOT ■ 

630 

POR Y = ll TO 15 


GOSUB 

©TRN GOSUB ?£RNDE?RND/ LET 

635 

GOSUB 9980 


TRN 


640 

PLOT 20,14 


2 

POR C = -l TO 0 

645 

PLOT 21,15 


3 

5LOU 

650 

LET D =25 


4. 

CL.S 

655 

GOTO 3200 


5 

PRINT “1. RPRE5ENTRCHO ",, > i 

725 

POR X =33 TO 30 STEP -1 


6 

PRINT "QUflKTRS LETRAS TERA 

730 

LET Y = 15 


R M ;C+2; H . LINHR?" 

735 

GOSUB 9990 


7 

XNPUT L 

740 

LET X =30 


8 

IP L>S THEN PRINT "NO MAXIM 

745 

FOR Y = 14 TO 13 STEP -1 


O 8 LETRRS ." 

750 

GOSUB 9980 


9 

XF L > S THEN GOTO 7 

755 

POR X =31 TO 33 


10 

PRINT "R ”;C+a;”. LINHA TER 

760 

LET Y = 13 


R "; L 

" LETRAS.*' 

765 

GOSUB 9990 


12 

PRINT ‘'ENTRE COM R ";C+2;" 

770 

LET X =33 


LINHR . - 

775 

POR Y = 12 TO 11 STEP -1 


20 

XNPLTT R$ 

780 

GOSUB 9980 


24 

IF LEN ASOL THEN PRINT "AT 

785 

POR X =32 TO 30 STEP -1 


ENCRO . UOCE ESCOLHEU ; L; LETRR 

790 

LET Y = 11 


s. - 


795 

GOSUB 9990 


26 

IF LEN R $ < > L THEN GOTO 20 

800 

LET D=37 


27 

CLS 

805 

GOTO 3200 


28 

PRINT RT 21,7;"AGUARDE UM M 

875 

LET X =42 


OMENTO“ 

88© 

POR Y=15 TO 11 STEP -1 


29 

PAUSE 140 

885 

GOSUB 9980 


30 

PRINT RT 21,7;" 

890 

PLOT 43,14 



•• 

900 

POR X =44 TO 45 


31 

PR ST 

915 

LET Y=15 


33 

IF C=0 THEN RRND USR 16527 

920 

GOSUB 9990 


35 

LET E=C+1 

925 

LET X =46 


40 

POR F=0 TO 7 

930 

POR Y=15 TO 11 STEP -1 


50 

LET I=960+C0DE R$ 

935 

GOSUB 9980 


6© 

POR G=0 TO 7 

940 

LET X =50 


70 

LET X =PEEK (8H+G) 

945 

POR Y = 17 TO 11 STEP -1 


80 

POR H=0 TO 7 

950 

GOSUB 9980 


30 

LET 2 = INT fX/2ttt7-H).W2 

955 

PLOT 49,15 


100 

IF Z < >INT Z THEN PLOT H+S*F 

960 

PLOT 51,15 


+ (8-L) í4,40-G-8íE-2f CC+2) 

970 

PLOT 51,11 


110 

NEXT H 

975 

LET D =55 


120 

NEXT G 

980 

GOTO 3000 


130 

LET R$=R$ (2 TO ) 

2000 

CLS 


140 

IP LEN R $ =0 THEN GOTO 250 

2001 

PRINT "O RPRE5ENTADOR", 

/ / / > 

150 

NEXT P 

j» 



160 

NEXT E 

2030 

PRINT "UOCE OUER,",,,, 


240 

SLOU 

2035 

PRINT "1. CRIRR UMA APRE5EN 

250 

GOSUB 9100 

TflCAG",,, 


285 

NEXT C 

2040 

PRINT "2. FAZER/REFAZER 

OS 

286 

SLOU 

TÍTULOS", . , 


287 

PRINT RT 21,0; "DIGITE <NEU 

2045 

PRINT "3. UER UMA APRESENTA 

LINE > 

P/ LIHPRR TELA" 

CRO COMPLETA",, 


288 

IF INKEY $ < >"" THEN GOTO 291 

2050 

PRINT "4. UER SO OS TÍTULOS 

289 

GOTO 288 

* j t 



291 

CLS 

2055 

PRINT "5•""SAUE"" R APRESEM 

292 

PRINT RT 19,0;"R APRESENTAC 

TRCRO SEM/COM OS TÍTULOS" 


RO FICOU BOfl ASSIM?" 

2060 

IF INKEY$="1" THEN RUN 


293 

PRINT "ENTRE ""S"" SE GOSTO 

2070 

IF INKEY*="2" THEN GOTO 

80G 

U DELfl” 

0 



294 

PRINT "ENTRE ""N"" SE GUIZE 

2080 

IF INKEY$="3" THEN GOTO 

500 

R REFRZE —LR" 

0 



295 

IF INKEY$="5" THEN GOTO 31G 

2083 

IF INKEY $ = “4 " THEN GOTO 

850 

300 

IF INKEY $ = "N" THEN GOTO 2 

0 



305 

GOTO 295 

2085 

IF INKEY$="5" THEN GOTO 

700 

310 

CLS 

0 



312 

LET H = 1 

2090 

GOTO 2053 


315 

GOTO 2000 

2500 

GOTO 725 


500 

LET D=7 

3000 

FOR X=D TO D+2 


502 

GOTO 3000 

301© 

LET Y = 15 


565 

LET X = 13 

3020 

GOSUB 9990 


570 

POR Y=S TO 15 

3030 

LET X=D+2 


575 

GOSUB 9980 

3040 

FOR Y=14 TO 11 STEP -1 


580 

POR X = 14 TO 16 

3050 

GOSUB 9930 


585 

LET Y = 15 

3060 

PLOT D+3,11 


590 

GOSUB 9990 

3070 

FOR X =D +1 TO D —1 STEP - 

1 

595 

LET X = 16 

3080 

LET Y = 13 


600 

POR Y = 14 TO 11 STEP -1 

3090 

GOSUB 9990 


605 

GOSUB 9980 

3100 

LET X=D-1 


610 

POR X = 15 TO 14 STEP -1 

3110 

FOR Y = 12 TO 11 STEP -1 


615 

LET Y=ll 

3120 

GOSUB 9980 


620 

GOSUB 9990 

3130 

FOR X=D TO D+l 


625 

LET X = 19 

3140 

LET Y=ll 
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FIGURA 3 (continuação) 


3150 GOSUB 9990 
3160 GOTO D*S0 

3200 FOR X=D TO D+2 
3210 LET Y = 13 

3220 GOSUB 9990 
3230 LETT X=D+2 

3240 FOR V = 14. TO IS 

3250 GOSUB 9930 

3260 FOR X=D + 1 TO D-l STEP -1 
3270 LET Y = 15 

3280 GOSUB 9990 
3290 LET X =D — 1 

3300 FOR Y = 14 TO 11 STEP -1 

3310 GOSUB 9930 

3320 FOR X=D TO D+2 

3330 LET Y = 11 

3340 GOSUB 9990 

3350 GOTO 100fD 

3700 GOTO 875 

4.400 GOSUB 6000 

4405 IF M=1 THEN GOTO 8560 

4410 GOTO 8500 

5000 SLOU 

5002 CLS 

5005 FOR C=-l TO 0 

5010 GOSUB 6000 
5020 GOSUB 8S00 
5030 NEXT C 
5040 GOSUB 6000 
5080 GOTO 500 
5090 GOSUB 6000 
6000 FOR N=0 TO 10 

6010 NEXT N 
6020 RETURN 

7000 CLS 

7001 PRINT “ COLOQUE SEU GRRURDO 

R NR POSXCRO REC"", E ENTRE 
NEULINE. 

7002 INPUT Q$ 

7003 CLS 

7004 LET M=0 

7010 LET L$ = " • . 44 

7020 LET L$(l) =CHR$ PEEK 16404 

7030 LET L$ C2) =CHR$ PEEK 16405 

7040 POKE 16405,113 
7050 POKE 16404,0 
7060 SRUE '‘O RPRESENTRDOa- 
7070 POKE 16404, CODE L$tl) 

7080 POKE 16405,CODE L$(2) 

7085 XF M=1 THEN GOTO 8000 
7090 GOTO 2000 
8000 CLS 

8002 PRINT ‘TÍTULOS E SUB-TITULO 

S 41 

8004.' PRINT “OURNTRS TELfiS?" 

8008 INPUT T 

8011 IF T >5 THEN PRINT “BTENCRO, 
NO MflXIMO 5 TELRS.“ 

8012 IF T <1 OR T >5 THEN GOTO SOO 
8 

5015 PRINT T 
8020 FOR C=1 TO T 

8030 PRINT “OURNTRS LINHRS TERft 
R “;C;“. TELfl?" 

8038 INPUT U 

8040 IF U > 4 THEN PRINT "RTEMCRO, 
NO HRXIMO 4 LINHRS. 44 
8042 IF U>4 THEN GOTO 8038 
3043 PRINT U 

3050 FOR E = 1 TO U 

8060 PRINT “OURNTRS LETRfiS TERR 
P E; * 4 . LINHR7“ 

8070 INPUT L 

8072 IF L > 8 THEN PRINT “fiTENCfíO, 

NO HRXIMO 8 LETRAS•“ 

8073 IF L >S THEN GOTO 807© 

3075 PRINT L 

8160 PRINT “ENTRE COM R “;E;“. L 

INHR 

8170 INPUT R$ 


8175 IF LEN R$<>L THEN PRINT “RT 
ENCRO . UOCE ESCOLHEU “;L;“ LETRfi 
S . “ 

8177 IF LEN R$<>L THEN GOTO 3170 
8173 CLS 
3180 FRST 

3190 IF E >1 THEN GOSUB 860© 

820© FOR F =0 TO L 

8210 LET I=9Õ0+CODE R$ 

8220 FOR G=0 TO 7 

8230 LET X=PEEK C8*I+G) 

8240 FOR H=0 TO 7 

8250 LET Z=INT CX/2**(7-H))/2 

8280 IF Z < > INT Z THEN PLOT H + 8*F 

•M8-L) í4,49-INT (48/ÍU + l) ) -INT t 

64/CU+2))*CE-1)-G 

8270 NEXT H 

8280 NEXT G 

8290 LET R$=R $(2 TO ) 

8300 IF LEN fl$=0 THEN GOTO 8311 

8310 NEXT F 

8311 SLOU 

8315 GOSUB 9100 

8316 IF E < >U THEN CLS 

8317 NEXT E 

8313 PRINT RT 21,0;“DIGITE <NEU 
LINE> P/ LIMPRR TELfl" 

3319 INPUT X$ 

6320 CLS 

8322 PRINT RT 19,0;“R “;C,“. TEL 
R ESTfl BOfl ASSIM?” 

8323 PRINT .S““ NO CASO AFIRMA 

TIUO" 

8324 PRINT . N 44 “ SE QUIZER REFA 

ZER R TELR“ 

8325 IF INKEY$=“S“ THEN GOTO 833 

0 

8327 IF INKEY$=“N“ THEN GOTO 84© 
0 

3329 GOTO 8325 

8330 CLS 

8331 NEXT C 

8335 SLOU 

8336 LET M=2 

8340 PRINT 44 UEJfl COMO FICOU,",, , 
••DEPOIS ENTRE ““M"", PARA RETORN 
RR RO MENU" 

8350 GOSUB 6000 
8355 GOSUB 6000 
8360 GOTO 5000 
8400 CLS 
8410 GOTO 8030 
3500 CLS 

8501 IF M=1 THEN GOTO 2000 
8505 FOR C = 1 TO T 
8510 GOSUB 8600 
8540 GOSUB 6000 
8550 NEXT C 

3560 IF INKEY $ = “M“ THEN GOTO 200 
0 

8561 GOTO 8560 

8562 CLS 

8565 GOTO 2000 
8570 ST OP 
8580 GOTO 5000 
8600 POKE 16507,128 
8610 POKE 16508,94+3íC 
3620 RRND USR 16527 
8630 RETURN 
8990 STOP 

9100 POKE 16507,128 
9110 POKE 16508,94+3IC 
9120 RRND USR 16514 
9140 RETURN 

9980 PLOT X,Y 

9981 NEXT Y 

9982 RETURN 

9990 PLOT X,Y 

9991 NEXT X 

9992 RETURN 
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Se você escolher a opção n? 4 ve¬ 
rá títulos sem a apresentação inicial. 

Interrompa a gravação quando a 
apresentação estiver gravada (se o seu 
vídeo cassete tiver o recurso "AUDIO 
DUB" você poderá gravar só a imagem 
da apresentação, e gravar o som pos¬ 
teriormente com calma). 

Após ter gravado os títulos, retor¬ 
ne a fita do vídeo ao início e veja se a 
obra ficou boa. Você sempre poderá 
repetir tudo se não tiver gostado. 

Uma vez satisfeito, tire a fita e car¬ 
regue-a (não preciso dizer que você de¬ 
ve começar a gravar a fita após o pon¬ 
to onde o título foi gravado, para não 
gravar sobre ele e perdê-lo). 

Vamos à festa,que a família já está 
esperando. Leve seu filho como ilumi- 
nadoremãosà obra. 

Não coma muitos doces que você 
está a serviço e além disso fazendo re¬ 
gime. TRABALHE. 

Após a festa, volte à casa do Mar¬ 
celo e mostre sua obra a todos. Você 
será nomeado o "Dias Gomes" da fa¬ 
mília. 

O 



Fig.8 


Torneio de Xadrez 



Renato da Silva Oliveira 

Numa das últimas cartas que Nabor 
me enviou, encontrei novamente um 
interessante problema. Sua solução não 
é das mais difíceis, entretanto, o que 
nos interessa é um programa para re¬ 
solvê-lo, e isso é um pouco mais com¬ 
plicado. 

O trecho da carta que nos interessa 
está reproduzido adiante. 

"Como você sabe, sempre me inte¬ 
ressei muito por xadrez. Todas as noi¬ 
tes, eu, Tolen, Ramarujan e Harold te¬ 
mos jogado até altas horas da madru¬ 
gada. 

A alguns dias atrás, ensinei os mo¬ 
vimentos das peças e algumas estraté¬ 
gias de jogo para a Dinorá. De início, ela 
teve muita dificuldade em assimilar o 
jogo mas, graças aos morangos silves¬ 


tres de Ramarujan, em pouco tempo 
estava jogando tão bem quanto eu. Os 
efeitos desses morangos sobre a Dinorá 
estão cada vez mais notórios, porém, de 
vez em quando ela tem uma recaída e eu 
nem a reconheço, ou melhor, tenho 
medo de conhecê-la. 

Numa dessas vezes, ela teve a idéia 
de realizar um torneio de xadrez entre 
nós cinco, e inventou um critério esdrú¬ 
xulo para eliminação dos participantes. 
Na verdade, realizamos dois desses tor¬ 
neios. Nenhum de nós se opôs ao cri¬ 
tério para não correr o risco de magoar a 
Dinorá. 

Cada torneio teve quatro partidas. 
Os jogadores da primeira partida foram 
escolhidos por sorteio. O perdedor foi 
eliminado e o vencedor jogou a segunda 


partida com um terceiro, sorteado entre 
os três que ainda não haviam jogado. 
Novamente, o perdedor da segunda par¬ 
tida foi eliminado e o vencedor jogou a 
terceira partida com um quarto partici¬ 
pante, sorteado entre os dois restantes. 
Finalmente, a quarta e última partida foi 
realizada entre o vencedor da terceira e 
o quinto e último participante. O vence¬ 
dor dessa quarta partida foi o vencedor 
do torneio. 

No 1° torneio que disputamos, as 
partidas foram as seguintes: 

Eu contra Tolen, Eu contra Harold, 
Ramarujan contra Dinorá, Ramarujan 
contra Harold. 

Obviamente, não as realizamos na 
ordem em que eu as apresentei. 

Com um pouco de sorte, consegui 
vencer o primeiro torneio. 

Uma surpreendente coincidência 
fez com que as partidas do segundo tor¬ 
neio fossem realizadas com as mesmas 
duplas do primeiro torneio, com a dife¬ 
rença de que os participantes que ha¬ 
viam vencido apenas uma partida no pri¬ 
meiro torneio, perderam para o mesmo 
adversário no segundo. 

Com isso, como é evidente, o 
venc. . . 

Aqui está seu quebra-cabeça: quem 
venceu o 2? torneio? Responda a isso 
com um programa. 

P.S. Continuamos a aguardar a resposta 
do Quebra-Cabeça "O amor do Sr. Na¬ 
bor", que saiu na edição número 11 da 
Microhobby! 
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De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc: a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 


pagar, faz sua programação financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple® 

E, como todo business Computer 


Apresentamos o 

TK 20001 
Ele rada o programa 
mais famoso 
do mundo. 


que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora e já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 II, nas 
versões 64K ou 128K de memória. 

A mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 

Preco de lançamento* (128 K): 

CrS 1.949.850 

/WCRODIGIML 

computadores pessoais 




* Sujeito a alteração sem prévio aviso. 


©Marca registrada da Visicorp. Filiada à ABICOMP ® Marca registrada da Apple Computer. 










CALCULADORAS 


ANÁLISE DE FOURIER 

PROGRAMA APLICATIVO 


Jose Eduardo Moreira 
Wilson José Tucci 



Se uma função f(x) é "bem comportada", podemos es- 
crevê-la como uma soma infinita de senos e cossenos: 


f(x) _ J!o , (a cos _ 

' 2 h " l 


n 7T . I n 7r » 

x + b sen _x) 


4.4 mostre b 

n 

Para calcular as integrais, utilizaremos uma versão modi¬ 
ficada do algoritmo para a regra de Simpson (veja o último 
número), 
para osa n : 


onde: a = _L f 
L J- L 


f(x) cos ÜZL xdx 
L 


1. h *—2L/d 

2. SOMA*—f(— L) * cos n?r + 4 * f(- L h) * cos_üül 

L 


b = _L f f(x) sen n 71 x dx 

L J- L L 

Essa igualdade é válida para o intervalo ] - L, L [, ou se 
f(x) for periódica de período 2L, vale para o intervalo ] —*>, 
+*°[. 

Obviamente não podemos calcular numericamente uma 
soma dos infinitos termos; o que se faz, então, é aproximar 
f(x) pelos primeiros termos da soma infinita, assim: 

f(x) JÜ + (a cos HJL x + b sen x) 

2 ^ " L " L 

n = 1 


(- L + h) + f(L) * cos n 7T 

3. repita o passo 3.1 para j de 2 até d-2 de 2 em 2 
3.1 SOMA*— SOMA + 2 * f(- L + jh) * cos 

( —L + jh) + 4*f(- L + (j + 1) h) * cos n7r 

L 

(-L + (j + 1)h) 


O que faremos aqui será desenvolver um programa que, 
para uma dada f(x), um certo L e um certo m, calcule os coefi¬ 
cientes a 0 , a 1# . . . a m e b v b 2 , . . b m que aproximam f(x) 
no intervalo ] — L, L [. 

O algoritmo para o cálculo desses coeficientes pode ser 
escrito assim: 

1. leia L, m, d 


4. SIMP*—h/3* SOMA 

5. Mostre SIMP 
Para os b : 

n 

1. h *—2L/d 

2. SOMA**—4 * f(— L + h)*sen JUL (- L + h) 

L 



3. mostre a Q 

4. repita os passos 4.1 a 4.4 para n de 1 até m 


4.1 a„~Ll_ 



L 

L 


f(x) cos x dx 
L 


4.2 mostre a 

n 


3. repita o passo 3.1 para j de 2 até d-2 de 2 em 2 

3.1. SOMA «*— SOMA + 2 * f(— L + jh) * sen JUL 

L 

(- L -l- jh) + 4*f(—L + (j + 1) h) * sen n * 

L 

(— L + (j + 1) h) 

4. SIMP «— h/3 * SOMA 

5. SIMP 


*3 b 



f(x) sen n 71 
L 


xdx 


Nas figuras 1 e2, vemos dois exemplos com fun¬ 
ções diferentes. Nas tabelas I e II podemos ver os 
comentários do programa. 
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Tabela I 


Comentários do programa: 

registrador 

variável 

função 

00 

m 

limite dos índices dos coeficientes 

01 

L 

meio período para a análise 

02 

d 

intervalos para integração 

03 

h 

amplitude dos intervalos 

04 

SOMA 

resultado parcial da integral 

05 

j 

contador para integral 

06 

f(x) 

nome da função 

07 

SIMP 

resultado da integral 

08 

n 

contador dos coeficientes 


Tabela II 



L = 1, M = 7, d = 20 (tem que ser par) 


A0 = 1.0000 

Al = -0.4052 

BI = -3.3333x1o- 11 

A2 = 3 x 10- 10 

B2 = 0.0000 

A3 = — 0.0443 

B3 = -3.3333x10- 11 

Figura 1 



f(x) = x 

p/ — 1.0 X 1.0 


01♦LBL -SERRà' 
0? ENB 


L = 1, M=7, d = 20 (tem que ser par) 


A0 = 

0.0000 

Al = 

6.6667X10- 11 

BI = 

0.6367 

A2 = 

3.3333 x 10- 11 

B2 = 

- 03186 

A3 = 

- 1.0000x10- 10 

B3 = 

0.2132 

A4 = 

0.0000 

B4 = 

-0.1619 

A5 = 

- 1.1947 x 10 - 9 

B5 = 

0.1333 

A6 = 

0.0000 

B6 = 

-0.1185 

A7 = 

-3.3333x10- 11 

B7 = 

0.1164 


linhas 02-07: 

entrada do nome da função a ser analisada 

linhas 08-10: 

entrada de L (metade do período em que a 
função será analisada - L, L) 

linhas 11-13: 

entrada de M (índice do último coeficiente a 
ser obtido) 

linhas 14-16: 

entrada de d (número de intervalos a ser 
usado na integração numérica), tem que 
ser par 

linhas 17-24: 

cálculo e apresentação de a Q 

linhas 25-26: 

inicaliza n em 1, para o laço das linhas 27-58 

linhas 27-58: 

laço para o cálculo dos a n , n = 1,2,. . . m 

linhas 28-32: 

comparação para ver se continua no laço 
ou escapa 

linhas 33-42: 

cálculo e apresentação de a n 

linhas 43-52: 

cálculo e apresentação de b n 

linhas 53-54: 

incrementa n 

linha 55: 

volta 

linhas 56-164: 

sub-rotina para calcular 

f f(x) cos n7r Xdx 

J-L L 

linhas 165-256: 

sub-rotina para calcular 

f f(x)sen n w xdx 

J-L L 

linhas 257-258: 

final 


Bi*- Bi 
02 üLS 
83 ‘PJHCfiC ‘ 
04 fiON 
85 prohp; 

66 <3ST0 6í 
(h MV 

88 “L ' 

89 PRüflPT 
18 STO 85 

n *n ?" 

12 PRfirtPT 

13 STO m 

14 ' r : 

55 PSOHPr 

16 STO 82 

17 8 


18 STO 88 
5? XEO •COSSIr.F” 
28 FCL 8! 

21 / 

22 "H0=" 

n PRCi. x 

24 PROKPT 

25 ) 

26 STO 88 
274LBL 86 

28 RCi 88 

29 fcCL 86 
38 

31 W 

32 GTC 61 

33 m “COSSIfíP 

34 RCL 81 
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35 •• 


31 4 

36 ’ H 


32 * 

37 FÍX e 


53 ST+ 84 

38.m es 


34 RCl 81 

33 FIX 4 


35 XEO IMS 86 

48 ”(■=“ 


36-RCL 88 

4l fiRCi X 


37 Pi 

42 PRWPT 


36 * 

43 XEO "ÕEN3IMP' 


93 COS 

44 ki.- ei 


Í00 * 

* r 

* .• / 


181 ST+ 84 

46 *B* 


182 2 

.)••• 

1 

11 

s:i 


183 STO 85 

48 SRCL 88 


184*16L 82 

44 ”TX 4 


105 PCL 85 

58 '>= • 


186 RCL 82 

51 hkC-U x 


167 - 

52 PFOMPT 


188 2 

53 1 


189 + 

54 St+ 86 


110 X/07 

55 f.Tfí 88 


íll GTO 83 

56*LSL ”C0S3I y : p 


112 RCL 8! 

5' 8 


113 CHS 

53 870 84 


114 RCL 85 

5? rcl e: 


115 RCL 83 

68 2 


i 16 * 

I < ? + 

62 RCL 82 


; i • * 

118 STO. 18 

63 / 


119 XEO TnB 86 

64 STO 83 


128 2 

65 RCL 81 


:2i * 

66 CHS 


14? RCL 10 

67 XEO IH5 86 


123 PI 

68 RCL 88 


124 » 

63 PI 


125 RCL 88 

78 * 


126 * 

71 COS 


i27 RCL 81 

72 * 


123 / 

73 ST+ 84 


129 CCS 

74 RCL 01 


.38 * 

75 CHS 


131 ST+ 84 

76 RCi 83 


132 RCL 81 

77 + 


133 CHS 

78 XEO íHB 86 


134 RCL 85 

73 RCL 88 


135 1 

88 Pí . 


136 * 

' •* • 


137 PC. 63 

2- RCL 8! 


138 * 

0 *.' 


139 + 

8 4 Ru. 8l 


148 STO 18 

85 CHS 


141 XEO Mi 86 

86 RCL 83 


142 4 

87 + 


■43 * 

88 * 


144 RCi 18 

83 COS 


145 PI 

38 * 


Í46 » 


147 RCL 88 


283 GTO 85 

148 * 


284 PCL 8! 

149 RCL 81 


285 CHS 

158 / 


286 RCL 85 

15! CGS 


207 RCL 83 

152 * 


288 * 

153 $7+ 84 


209 + 

154 2 


218 STO '18 

155 ST* 85 


211 XEO IMS 86 

156 GTO 82 


212 2 

157*161 63 


213 * 

15c RCL 83 


214 RCL 18 

155 3 


215 PI 

168 


216 * 

161 RCi 64 


217 RCL 88 

162 *' 


218 * 

163 STO 67 


213 RCL 01 

1b4 570 


228 / 

165*181 “S£Ki;«P- 


22! SIM 

1 b6 RCi. 81 


222 * . 

0. .* 


223 ST* 84 

IbS * 


224 RCL 8! 

lé? RCL Í2 


225 CHS 

m 


226 RCL 85 

1 7 \ ÍTQ yj 


227 1 

I ~2 ? 


228 + 

i 73 5Tfi hk 


229 RCL 83 

174 PCI 8; 


238 * 

2 75 CHS 


231 + 

!?S RCL ü 


232 STO 50 

1 77 t 


233 XEO IML 86 

! 73 KE5 iNl Gt* 


234 4 

4 


235 * 

Voè * 


236 RCL 18 

131 RCI. 8* 


237 PI 

i8í CHS 


238 * 

1?:* Ru f . 


233 RCL 88 

134 + 


240 * 

17,5 ?: 


241.'RCL 81 

í; : ;k :♦ 


242 / 

137 RC: 


243 SIM 

m * 


244 * 

18? RCL 8! 


245 ST* 84 

198 / 


246 2 

19i S!i< 


247 ST* 85 

1 ri: *• 


248 GTO 84 

1*7 : :-T + rj4 


249*LBL 05 

lí- 2 


250 RCL 03 

195 STO 85 


251 3 

J96*LBL ¥ 


252 / 

197 PCL 85 


253 RCL 04 

198 RC: 82 


254 * 

1 93 - 


255 STO 07 

288 2 


256 RTN 

281 '+ 


257*161 0! 

202 X>«? 


258 FUJI 
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Curso de Programação 
(aula IV) 


Jose Eduardo Moreira 
Wilson José Tucci 


Na aula passada foram apresenta¬ 
dos alguns conceitos de programação e 
fluxogramação. Já discutimos a valida¬ 
de e a importância dos fluxogramas e é 
importante que você se acostume com 
eles. Mas a nossa HP-41 (e computa¬ 
dores em geral) não aceitam programas 
na forma de fluxograma. O que fazer 
então? 

A etapa seguinte à fluxogramação é 
a codificação, um processo bastante 
mecânico, em que o fluxograma é tra¬ 
duzido para uma determinada lingua¬ 
gem (o fluxograma deve ser o mais ge¬ 
nérico possível, válido para qualquer 
computador, já que as linguagens são 
específicas de um ou outro compu¬ 
tador). 

Para podermos traduzir os fluxo¬ 
gramas para a linguagem da HP-41, pre¬ 
cisamos aprender um pouco sobre a pi¬ 
lha operacional, os registradores, os co¬ 
mandos de interrupção, os comandos 
de comparação e o comando GTO. 

A Pilha Operacional 

A HP-41 possui 4 registradores es¬ 
peciais que formam a pilha operacional. 
São eles os registradores X, Y, Z e T (fi¬ 
gura 1). 


Figura 1 


’ T 


Z 


Y 


X 

único apresentado no visor 


A pilha operacional é parte funda¬ 
mental da implementação da RPN nas 
calculadoras HP. 

Quando se digita um número no te¬ 
clado, (por exemplo: 5), ele é colocado 
no registrador X sem que haja mudança 
alguma nos conteúdos dos registrado¬ 
res Y, ZeT (figura 2). 


Rgura 2 



1 ENTER T| 



Ao acionarmos a tecla ENTER t , a 
pilha inteira sobe (o que estava em T é 
perdido, o que estava em Z passa a T, o 
que estava em Y passa a Z e o que 
estava em X passa para Y) e o que esta¬ 
va em X, continua lá. Quando alguma 


operação é executada, ela é sempre do 
tipo Y operação X. O resultado é colo¬ 
cado em X e a pilha desce (o que esta¬ 
va em Z passa para Y, o que estava em 
T passa para Z e continua em T). Acom¬ 
panhe na figura 3 o estado da pilha du¬ 
rante o cálculo da expressão (783 * 435)/ 
329. 



A HP-41 apresenta um grande nú¬ 
mero de registradores, que pode variar 
desde 63 (HP-41 C "seca"), até um má¬ 
ximo de 319 registradores (HP-41C + 4 
módulos, HP-41 C -l- Quad Memory, 
HP-41 CV, HP-41 CX). Todos esses re¬ 
gistradores podem ser usados para guar¬ 
dar dados (números, letras), ou progra¬ 


mas. A repartição dos registradores é 
feita pelo usuário através do comando 
SIZE (XEQ S I Z E), e especificando o 
número de registradores que devem ser 
usados para dados (os restantes são re¬ 
servados para programas). Cada variá¬ 
vel do fluxograma terá um registrador de 
dados equivalente na codificação. Após 
dar um SIZE, estão disponíveis os regis¬ 
tradores de número 00 até o número me¬ 
nos uma unidade, que é o número espe¬ 
cificado no SIZE. 

Os registradores são operados fun¬ 
damentalmente através das operações: 
STO — Store (armazena) 

RCL — Recall (chame de novo) 

A operação STO "armazena no re¬ 
gistrador de número" o número (ou 
letra) guardado no registrador X. 

A operação RCL chama para o re¬ 
gistrador X, o valor (número ou letras) 
guardado no registrador". 

Os comandos de interrupção ser¬ 
vem para interromper a execução do 
programa, para que se possa entrar com 
dados ou ler as saídas. São dois os prin¬ 
cipais: 

STOP — (tecla R/S), interrompe a exe¬ 
cução do programa e visualiza o con¬ 
teúdo do registrador X. Para continuar a 
execução do programa, aperte R/S. 
PROMPT - (XEQ PROMPT), inter¬ 
rompe a execução do programa e visua¬ 
liza o conteúdo do registrador ALPHA. 
Para continuar a execução do progra¬ 
ma, tecle R/S. 

Com o que já sabemos, podemos 
traduzir o começo do fluxograma da 
aula passada (figura 4). 

Rgura 4 

Fluxograma 


tf 'TJvVjtfv' 
£•? % 

%' : 
tf < S i!.! 

05 r, F • 

PRfi?:F T 

e? STO 9 à 
tf* tf 

tf* 5TO çv 


VARIÁVEL 

REGISTRADOR 

M 

00 

P 

01 

1 

02 
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Comandos de comparação 

A HP-41 dispõe de cinco coman¬ 
dos para comparação entre os valores 
dos registradores X e Y e mais cinco co¬ 
mandos para comparação entre o regis¬ 
trador X e o valor 0. As comparações 
possíveis estão mostradas na Tabela I. 


Tabela 1 

X com Y 

Xcom0 

X = Y? 

X = 0? 

X = Y? 

X = 0 

X < Y? 

X< 0? 

X < = Y? 

X< = 0? 

X> Y? 

X>0? 


Se a comparação for verdadeira, o 
comando seguinte é executado; se for 
falsa, o comando seguinte é pulado. 

Assim, ao traduzirmos uma opera¬ 
ção de decisão, faremos a comparação 
que, se verdadeira, força o computador 
a desviar; a seguir colocamos uma ins¬ 
trução de desvio (GTO) e depois a conti¬ 
nuação normal do fluxograma. 

O controle GTO LL força um desvio 
para o LBL LL. Agora podemos acabar 
de traduzir nosso fluxograma (figura 5). 

Exercícios 

Traduza os fluxogramas dos exer¬ 
cícios da aula passada. 


Fluxograma 


Tradu çâo /Codifica ção 



Figura 5 


íu; ei 

’nrVTSnO 

«r 

"QUOCíf. 

fc? "f! 


26 

QRCí 62 

63 P&rtfí&T 

c. • 

RkO^PT 

04 STÚ 

BB 

•22 


05 ‘T 


29 PRC; híí 

% PRnttPT 

3>3 

iV r »P'i 

ft? -;Tfi 


-• 


Kl 





0/ 




00 



ii RCL 

00 



12 RC« 

fii 



13 a/Y* 




14 f?Tfi 

01 



15 m 




ít RCL 

e: 



& ! ~ 

STfi 

00 



; 9 RU 

6? 



2« I 




2l ▼ 




21 m 

62 



2? CTi 




o'4n.S< 

tf • 




VARIÁVEL 

REGISTRADOR 

M 

00 

P 

01 

L 

02 


Respostas dos exercícios da aula anterior: 
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VICE-VERSA 



Traduções para os 
TK 83/85: 

Uma nova visão 


Mario Cezar Barbosa 


Uma das grandes desvantagens dos microcomputadores da 
linha TK é exatamente a inexistência dos comandos de desvios condi¬ 
cionados, do tipo ON k GOTO x, y, z,. . . e ON k GOSUB x, y, z. . . 
onde k é uma variável condicional inteira e x, y, z são números de 
linhas para desvios. Assim, se k = 1 o desvio faz-se para a linha x; se 
k = 2 o desvio faz-se para a linha y; e sucessiva mente. 

Existem, entretanto, diversos ''macetes" que simulam estes 
comandos de desvio condicionado. Dentre esses "macetes", desta¬ 
co os apresentados no excelente artigo de Igor Sartoni (MICRO- 
HOBBY N? 3-1983). Entretanto tais artifícios têm uma grande des¬ 
vantagem: ou não são aplicáveis em todos os casos ou ocupam mui¬ 
ta memória. 

Como, então, implementar no TK os comandos de desvio con¬ 
dicionados, utilizando-se pouca memória e que sejam mais abran¬ 
gentes? 

A solução que proponho é a utilização das operações aritmé¬ 
ticas lógicas, que seu TK podr ' —er. 

O que é ume* geração Lógica? 

Uma operação lógica é aquela ocorrida "entre duas coisas" e 
que apresenta como resultado possível somente dois estados: VER¬ 
DADEIRO (Dou FALSO (0). 

Assim, por exemplo, se consideramos o operador lógico >, 
e queremos operar 5 com 3, nesta ordem, com esse operador, pode¬ 
mos escrever: 

operação resposta 

5 > 3 1 (verdadeiro) 

Ao contrário, se utilizamos o operador lógico =, com estes mesmos 
números, obtemos: 

operação resposta 

5 = 3 0 

0 seu TK tem capacidade de realizar operações deste tipo com 
os seguintes "OPERADORES LÓGICOS": C, >, = ,<=,>=, 
< 

Por exemplo, ligue o seu TK e pergunte a ele: 



observe as respostas oferecidas pelo computador: 0 (falso) e 1 (ver¬ 
dadeiro). 

Equações Lógicas 

Assim como ocorre com os operadores +, —, /, *, podemos 
realizar "operações" com os operadores lógicos e os operadores nu¬ 
méricos. Desta forma ampliamos nosso quadro de operações mate¬ 
máticas para: + =,>=,<>. 

Em seu TK são permitidas operações mistas com "opera¬ 
dores lógicos" e "numéricos ou aritméticos". Assim, podemos escre¬ 
ver expressões do tipo: 



observe os resultados da operação: Z = 5 e A = 4 

Analisando-se as equações observamos que: para Z, inicial¬ 
mente, o TK calculou a operação lógica 2 = 1 e encontrou 0; depois 
operou 0*3 + 5 e obteve 5 como resposta; para A, inicialmente, o TK 
operou (Z < 8) e encontrou 1 (verdadeiro) e depois operou 4*1 en¬ 
contrando 4 como resposta. Interessante, não é? 

Agora você já pode elaborar equações lógico-aritméticas em 
seu TK, experimente! 

Tente, agora, realizar equações lógicas com caracteres alfa¬ 
numéricos por exemplo: 



observe as respostas e conclua que a comparação de alfanuméricos 
está baseada na ordenação alfabética. 

Vamos, agora, estudar alguns "macetes" de programação ba¬ 
seados nas "equações lógico-aritméticas". 
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Substituições de comandos do tipo: 

IFX <YTHEN LETZ = Z + N 

onde: X, Y, Z, são variáveis ou números e N é uma variável tipo 
numérica; 01 é um "operador lógico". 

Podemos substituir essa expressão por: 

LETZ = Z + N* (Z< Y) 
por exemplo, seja: 



a equação lógica (X + Y) assume os valores 0 (para falso) e 1 (para 
verdadeiro), de forma que 3*(X = Y) será 3 (se X = Y) ou 0 (se 
X<>Y). 

As vantagens da substituição são: maior rapidez de cálculos 
e economia de 1 byte de memória. 

Implementação dos comandos de Desvio 
Condicionado: ON k GOTO x, y, z, 
e ON k GOSUB x, y, z„ 

Podemos utilizar "equações lógicas" para a "simulação" 
destes comandos no TK. 

Para tal, utilizamos a seguinte equação: 


Substituímos: 



e analogamente substituímos: 



Claramente, apenas uma das expressões lógicas nos parên¬ 
teses será verdadeira (1) e o desvio se fará para a linha multiplica¬ 
tiva; as demais equações lógicas assumem o valor zero (0) e não in¬ 
terferem no desvio. Observe que não fizemos restrições aos núme¬ 
ros x, y, z, ... das linhas de desvio, e o processo faz-se então 
genericamente. 

As vantagens do processo são: economiza memória em muitos 
casos (principalmente se utilizarmos o poder de VAL nas constantes 
numéricas), grande rapidez de cálculo e desvio. A principal desvan¬ 
tagem do processo deve-se ao fato de que os comandos de desvio 
condicionado não são executados quando k vem com um valor fora 
do intervalo utilizado para o desvio; corrigiremos esta deficiência mais 
adiante, depois de estudarmos as operações de associação lógica 
doTK. 

Como exemplos de desvios condicionados, temos: 



substituímos por: 



e, se desejamos economizar memória, escrevemos: 



Podemos observar aqui a desvantagem, a ser corrigida, do 
processo: enquanto na linha 100 do programa original, se k < 1 ou 
k >5 a linha 100 não seria executada, em nosso processo obtería mos 
todas as expressões lógicas como falsas (0) e teríamos um desvio 
do tipo GOTO 0. 

Operações de Associação Lógica 

Assim como os operadores +, —, /, * formam as operações 
base para associações de elementos numéricos, existem operadores 
lógicos que formam uma base para as associações lógicas. Estes ope¬ 
radores são: AND, OR, NOT. 

Vamos, então analizar os princípios de funcionamento destas 
operações lógicas: 

Operação Lógica AND: 

A operação Lógica AND traduz-se por "E", e apresenta um 
significado de REUNIÃO e SIMULTANEIDADE. Assim, se efetua¬ 
mos a operação Lógica: A AND B, onde A e B são expressões lógi¬ 
cas, temos como resultado o seguinte quadro: 


TABELA 1 


A 

B 

A AND B 

1 

1 

1 

1 

0 

0 

0 

1 

0 

0 

0 

0 


onde: 1 significa operação verdadeira e 0 falsa. 
Por exemplo, ligue o seu TK e execute: 



Operação Lógica OR: 

A operação lógica OR é traduzida como "OU", e apresenta um 
significado de INDEPENDÊNCIA. Assim, se efetuamos a operação ló¬ 
gica: A OR B, onde A e B são expressões lógicas, temos como re¬ 
sultado o seguinte quadro: 


TABELA 2 


A 

B 

AOR B 

1 

1 

1 

1 

0 

1 

0 

1 

1 

0 

0 

1 
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Por exemplo, ligue o seu TK e execute: 



Operação Lógica NOT: 

A operação lógica NOT traduz-se por “NÃO", e apresenta um 
significado de NEGAÇÃO. Podemos formar as seguintes tabeias 
com NOT: 

VER TABELA 


TABELA 3 


A 

NOTA 

1 

0 

0 

1 


Por exemplo, ligue o seu TK e execute: 


10 PRINT NOT (2=2; 
20-PRINT NOT (1=2) 


outra associação possível é: 


TABELA 4 


A 

B 

A AND B 

NOT (A AND B) 

1 

1 

1 

0 

1 

0 

0 

1 

0 

1 

0 

1 

0 

0 

0 

1 


Ligue o seu TK e execute: 



TABELA 5 


A 

B 

A OR B 

NOT (AORB) 

1 

1 

1 

0 

1 

0 

1 

0 

0 

1 

1 

0 

0 

0 

0 

1 


Ligue o seu TK e execute: 



NOT (NOT(A) AND B) e outras. Entretanto, estas tabelas podem ser 
facilmente elaboradas com auxílio das anteriores e do TK, e em geral 
são raramente utilizadas em programação. 

Variáveis Lógicas 

Além dos tipos de variáveis usuais (numéricas e alfanuméri¬ 
cas), os TKs possuem ainda as denominadas "Variáveis Lógicas". 

Uma variável lógica é uma variável que assume unicamente 
dois estados: 1 (verdadeiro) e 0 (falso). Esse tipo de variável apresenta 
uma importância muito grande como variável de controle de proces¬ 
sos elaborados em programas mais complexos. 

Para observarmos as variáveis lógicas dos TK, consideremos 
os seguintes programas: 



como resultado deste, obtemos o nível lógico 1 (verdadeiro). 

Na realidade o que fizemos foi o seguinte: definimos uma va¬ 
riável numérica X nos programas e pedimos a impressão de uma va¬ 
riável lógica NOT X, correspondente. 

Uma observação atenta deste processo, nos conduz ao se¬ 
guinte resultado: 


bs 

X< >'S. enteo 

NOT X = 'S. 

Se 

X = 'S k enteo 

NOT X = 1 


Assim se definimos em um programa uma variável Z = NOT X, Z 
comportar-se-á como uma variável lógica, assumindo unicamente os 
valores lógicos 0 (falso) ou 1 (verdadeiro). 

Como utilização de variáveis lógicas no TK, podemos efetuar o 
seguinte "macete": 

Substituição do comando: IF w = 0THEN ... 
por um comando de variável lógica: 

0 comando IF dos TKs verificam os níveis lógicos das variá¬ 
veis da comparação e, através deles, estabelecem a validade ou não 
da expressão relacional e sua respectiva execussão, ou não. 

Baseando-nos neste fato, podemos, em vez de fornecermos 
uma comparação ao comando IF, fornecermos diretamente o nível 
lógico da variável de comparação. Assim, podemos substituir: 



-00 jf u-0 tuEN 


por: 


100 JF N0T Li THEN 



Como vantagem da substituição temos uma maior rapidez de cálcu¬ 
lo e uma economia de 7 bytes de memória. 


Equações Lógico-Aritméticas Gerais 

Vemos, então, que as expressóes matemáticas mais gerais que 
um TK pode processar é uma combinação de variáveis numéricas, 
alfanuméricas e lógicas, executadas por operadores aritméticos e 
lógicos. 

Por exemplo, o programa abaixo calcula uma variável a partir 
de uma expressão aritmético-lógica: 


9 LET Z = INT (RND*100+1) 

10 LET F= SSN ( (-3) * lRND> =0.5) + 
3 * i R ND > 0,8) - 3 -i- 5 ± (NÜT Z) - 4- ■+• NÜT >. L 
<0 P.ND Z> 10) ) 

11 PRINT F 


Outras tabelas lógicas poderiam ainda ser elaboradas com o 
operador NOT, tais como; NOT(A) AND B; NOT(A) OR B; A AND 
NOT(B); A OR NOT(B); NOT(A) AND NOT(B); NOT(A) OR NOT(B); 
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Baseando-se nestas expressOes lógico-aritméticas, podemos 
desenvolver diversos "macetes" de programação com a finalidade de 
otimizar a programação e economizar memória, e ainda aumentar o 
"poder" de nosso microcomputador. Por exemplo: 


Substituição de um conjunto de IF's em cadeia 
por uma questão lógica 

Consideremos que, em um programa, temos: 


100 IF Y=0 THEN LET Z=Z+H 

110 IF_ C Y > 0 3 PHD CY ■: 13 THEN LET 

0 

tal conjunto de instruções pode ser substituído pela seguinte equa¬ 
ção lógica: 

100 LET Z=UhL Z-i-h ± CNÜT Y3+C3+Z 

A economia de memória é de 42 bytes. Poderiamos ainda uti¬ 
lizar a função VAL e obter. 

-L 0 L. C. 1 il =í JHL L i- H N ü • V J 4* : TT L_ 

+ 13 ■+■ (Y > 0 h N D Y < 1 * — ( X < > L 3 — Z ± ( C Ü b 

CL3 =PI/L3 !: 

Neste caso a economia de memória é de 63 bytes. 

Substituição de equações de movimentação 
em jogos por equação lógica: 

Freqüentemente encontramos linhas de programação em jo¬ 
gos, do tipo: 

100 IF INKEY $ = “5" THEN LET Y=Y- 

*110 IF INKEY $ = !t 3" THEN LET Y=Y + 

linhas estas utilizadas para a movimentação de elementos na tela. 
Podemos substituir conjuntos de linhas deste tipo por equações ló¬ 
gicas do tipo: 

_100 ; LET Y=Y+ í INKEY $ = "8" ) - : INKEY 

Como vantagem temos um aumento na velocidade de proces¬ 
samento e uma economia de 23 bytes. 

Implementação dos comandos de desvio 
condicionado: ON k GOTO x, y, z, 
e ON k GOSUB x, y, z. 

Tínhamos estabelecido um comando para o desvio condicio¬ 
nado, entretanto, tal comando apresentava a desvantagem de que: 
quando k, vindo do programa, não pertencia a faixa dos inteiros pre¬ 
vistos pelo desvio, obtínhamos um comando do tipo GOTO 0. 

Baseando-nos nas expressOes lógico-aritméticas gerais, po¬ 
demos contornar este problema. Assim proponho que: 

NNN ON K GOTO .X , Y , Z , . . . 

sejam substituídos por: 

NNN GOTO X * ü K = 13 + Y * í K =23 +Z + < K = 33 
+ ... + (NNN + 13 + £ K < 1 OH K > F3 

e: 

=3 )+... + ( NNN + 13 * C K < 1 GR K > F 3 


onde: NNN é o número da linha; X, Y, Z, . . .Z são as linhas de des¬ 
vio efè o último valor que K assume. 

Por exemplo: 



Claramente o últjmo condicional lógico nos garante que: se K 
não estiver no intervalo de 1 a 3, então a equação lógica resume-ee 
a 100 GOTO 101 e o programa prossegue normalmente. 

A fim de economizarmos mais memória, é conveniente rees¬ 
crever a equação lógica com VAL: 



Generalização dos desvios condicionais para os TKs 

A maioria dos computadores utilizam somente desvios condi¬ 
cionais controlados com variáveis inteiras. Os TKs apresentam uma 
grande vantagem: os controladores dos desvios são definidos, logi¬ 
camente, pelos usuários. Assim podemos utilizar para controle dos 
desvios números reais (de ponto flutuante) e até mesmo expressOes 
"Lógico-aritméticas". 

Assim, se X é uma variável de ponto flutuante, que vem do 
programa para controlar o desvio, podemos ter, por exemplo: 

a — Se: X = 0, desvio para linha 3 

b — Se: X entre 0 e 5, desvio para linha 20 

c — Se: X entre 5 e 10, desvio para linha 15 

d — Se: X entre 10 e 20, desvio para linha 50 

e — Considere-se que X não assume os valores: 5; 10. 

Nestas condiçOes podemos escrever a seguinte "Equação de 
Desvio Condicionado": 



Como exemplo de um "Programa Lógico", consideremos o se¬ 
guinte programa, que determina quantas vezes a função RND tomou 
valores maiores e menores que 0.5 em um lote de amostragem de 
10000 números: 



Sugestões aos leitores 

Como sugestões aos leitores proponho uma análise e pesqui¬ 
sa das leis de formação das operações lógicas alfanuméricas e nu¬ 
mérico-alfanuméricas tipo: "A" < "B"; "1" = "G"; "AB" > "AC". 

Observe que é possível utilizar-se nos TKs desvios condicio¬ 
nados, controlados por Variáveis Alfanuméricas e até mesmo Núme¬ 
ros-alfanuméricos. 

Como sugestão também pesquisem a utilização de álgebra ló¬ 
gica em "macetes de programação". 
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Você acabou de comprar o seu Computador, compatível 
com o TK 83, retirou-o da caixa, instalou-o na TV, ligou sua 
fonte, apareceu o K invertido no canto inferior do vídeo, 
exatamente como dizia o manual. 

— Muito bem, — pensa você — mas... 

E agora? 

Roberto Bertini Renzetti 


Cronômetro de Precisão 


Nesta edição apresentamos um 
curto programa que transforma seu 
computador num cronômetro digital 
de alta precisão! 

Ele pode parecer um pouco com¬ 
plexo mas, na realidade, seu funciona¬ 
mento é simples de ser entendido e 
não apresenta problemas de digitação. 

Digitação 


Linha 10 

0 comando IF encontra-se na te¬ 
cla U e serve para tomar decisões. To¬ 
da linha em Basic que tiver um IF, obri¬ 
gatoriamente deverá ter um THEN 
(SHIFT + Tecla 3). INKEY$ é obtido 
com SHIFT + NEW LINE 4- Tecla B e 
tem a função de permitir a entrada de 
apenas um dado, através do teclado. 

A linha que contém o INKEY$ fica 
esperando você pressionar alguma te¬ 
cla para então passar para a linha se¬ 
guinte. Caso contrário, ela “pula" pa¬ 
ra seu próprio começo e continua es¬ 
perando. 

Linhas 20 e 30 

0 comando POKE tem a finalida¬ 
de de introduzir um número em um de¬ 
terminado espaço (endereço) da me¬ 
mória. 

No nosso programa, estes ende¬ 
reços representam duas variáveis do 
programa interpretador da ROM que 
servem para contar os “quadros" da 
tela de TV (veja o apêndice do seu 
manual). Esses endereços vão ser 
preenchidos com os números 255 e 127 


respectivamente. Note que 255 + 256 
* 127 = 32767. 

Não é importante você saber mais 
detalhes por enquanto. Basta saber di¬ 
gitar o programa e ver como ele fun¬ 
ciona. 

Linha 40 

Esta “flechinha" é simples de ser 
obtida: primeiro digite SHIFT L e de¬ 
pois SHIFT M. Um aviso: esta “flecha" 
só serve para “enfeitar" na tela ou co¬ 
mo desenho num joguinho — pois apa¬ 
rece entre aspas com um PRINT — e 
não tem a mesma função de “igual e 
maior" que existe em SHIFT Y. 

Linhas 50 e 60 

Têm quase a mesma função que a 
linha 10. 

Linha 70 

O comando LET já foi explicado 
no “E Agora" da revista número 10. Já 
a função PEEK serve para “ler" um en¬ 
dereço da memória. Fazendo uma ana¬ 
logia: imagine as memórias como cai¬ 


xas, Com POKE, vocêpoe alguma coi¬ 
sa dentro da caixa e com o PEEK vo¬ 
cê apenas o/ha e copia “a coisa" que 
está lá dentro (sem modificar nada). 

Linha 80 

Vai imprimir o tempo gasto (quan¬ 
do o programa for rodado) entre aper¬ 
tar uma tecla uma vez e apertá-la de 
novo (como um.cronômetro). 

Linhas 90 e 100 

Novamente, usamos INKEY$ só 
que, desta vez, para rodar o programa 
novamente. 

Como funciona o programa. 

Ao rodar RUN, o programa espe¬ 
ra que você digite uma tecla qualquer. 
Quando isto acontecer, aparecerá a 
flecha na tela e o “cronômetro" vai ser 
disparado. O tempo é marcado de 
acordo com a relação existente entre a 
freqüência da “varredura" da tela com 
as variáveis dos endereços 16436 e 
16437. 

O resultado (tempo) é brecado e 
apresentado na tela quando se apertar 
a tecla outra vez. 


10 IF XNKEY$ = ,tee THEN GOTO 1© 

* 20 POKE 16436,255 

30 POKE 16437,127 
4-0 PRIMT ” -> 

50 XF INKEYSl < > **" THEN GOTO 50 
60 XF XNKEY * = *•*• THEN GOTO 6© 

70 LET flsPEEK 16436+PEEK 16437 

*256 

88 PRINT C32767-ft) 76©j ” SEGUND¬ 
OS" 

00 XF XMKEY $<>** ** THEN GOTO 98 
1©0 RUN 

_ 
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EXPLORANDO O TK2000 


Arquivos 


Luis Carlos Nunes 
Wilson J. Tucci 



Existem dois tipos de arquivo BA 
S/C: os arquivos seqüenciais e os arqui¬ 
vos diretos (ou RANDOM). A principal 
diferença entre os dois é que nos se¬ 
qüenciais, tanto a leitura quanto a gra¬ 
vação deve ser feita do início ao fim do 


Se quisermos acessar a palavra GA¬ 
LINHA no arquivo sequencial devemos 
ler os 3 primeiros registros e só então 


arquivo, de registro a registro. 0 tama¬ 
nho dos registros pode ser variável. Nos 
arquivos diretos, o acesso (Leitura/gra 
vação) é feito direta mente para o regis 
tro que nos interessa. A única limitação 
é que os registros devem ter tamanha 
fixo. (figura 1) 


poderemos acessar a palavra GALINHA. 
No arquivo direto, podemos acessar di¬ 
retamente o 4? registro. 


Arquivos seqüenciais 

Observe que na Unha 20 nós fize 
mos D$ = CHR$ (4). Isto foi feito para 
que tenhamos acesso ao TKDOS. Ne 
cessitamos enviar ao computador (Sis¬ 
tema Operacional), um caractere de 
controle (CHR$(4)). Isto é feito através 
do comando PRINT. 

Para iniciarmos o trabalho com um 
arquivo é necessário "abri-lo". Isto é 
feito com o comando OPEN. Ao termi 
narmos o trabalho, devemos "fechar" 
esse arquivo. 0 comando para isto é 
CLOSE. Observe que os comandos 
estão sempre entre aspas, precedidos 
pelo comando PRINT D$. 

Devemos, depois, fornecer ao com 
puta dor qual a operação que queremos 
fazer com esse arquivo der ou gravar). 
No caso, primeiramente, desejamos 
gravar neste arquivo. Assim devemos 
dar o comando WR/TE. 

A seguir, utilizamos o comando 
PRINT para grvar esses registros no 
arquivo teste jmo nós demos imedia 
tamente anu comando PRINT D$ — 
"WRITE TEc ' E" —, o microcomputa 
dor "sabe" que todos os comandos 
PRINT que se seguem, referem se a 
"impressões" no disco e não no vídeo. 
Ao terminar o processo, damos o co¬ 
mando PRINT DS - "CLOSE TESTE". 

Neste instante, o comando PRINT 
volta a atuar no vídeo. 

Logo depois, no programa, abrimos 
novamente o arquivo TESTE e lemos os 
cinco registros. Ler um registro, signi 
fica entrar com um valor. Por isso nos 
utilizamos o comando IMPUT (este, pe 
los mesmos motivos anteriores, atua 
agora no disco ao invés de atuar no te 
dado). 

Ao finalizar o trabalho, digitamos 
"CLOSE TESTE". 

Execute o programa. O que aconte 

ceu? 

A luz vermelha do drive acendeu e 
apagou, mas nada surgiu na tela. Por 
que? Porque nós não mandamos sair 
nenhum resultado na tela. Se você de 
sejar saber se o programa está funcio 
nando, basta digitar antes do comando 
RUN. Agora você verá as operações 
sendo executadas. 

Seja agora um arquivo direto: 


10 REM ACESSO SEQUENCIAL 
20 D$=CHR$ <4 > 

30 HOME 

40 PRINT D$5 "OPEN TESTE" 

50 PRINT D*! "URITE TESTE" 
60 PRINT "ARU.ORE" 

70 PRINT "GADO" 

80 PRINT "CACHORRO" 

90 PRINT "GALINHA" 

100 PRINT "UUA" 

110 PRINT D$ 5 "CLOSE TESTE" 

120 PRINT D$; "OPEN TESTE" 

130 PPINT Dt; "READ TESTE" 

140 FOR 1=1 TO 5 
150 INPUT At 
160 NEXT 

170 PRINT Dt? "CLOSE TESTE" 
180 END 



Sejam os seguintes registros: 

ARVORE 

GADO 

CACHORRO 

GALINHA 

UVA 

Em um arquivo sequencial poderíamos ter: 



A 

R 

V 

0 

R 

EL 

G 

A 

D 

o l c 

A 

C 

H 

0 

R 

R 

0 

L 

G 

A 

L 

1 

N 

H 

w 

U 

V 

A 




Mas em um arquivo direto deveríamos ter: 



A 

R 

V 

0 

R 

E 


L 

G 

ADO 






C 

A 

c 

H 

0 

R 

R 

0 


G A 

L 

1 

N 

H 

A 

U 

V 

A 






ou seja, todos os registros deverão ter, OBS: o símbolo representa "RE 

pelo menos, 8posições. TURN" Fi g . i 
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As maiores diferenças estão no 
comando OPEN; devemos declarar o ta¬ 
manho dos registros e, tanto na grava¬ 
ção quanto na leitura, devemos especi¬ 
ficar qual registro nós vamos acessar 
(Rl R2, R3, R4, R5). 

Execute o programa colocando ou 
não o comando MON C, I, O e tente 
explicar o resultado. 

Para " desligar " o comando MON 
C, 4 0\ basta digitar o comando NO- 
MON C, I, 0. 

A seguir vamos propor um arquivo 
telefônico. Apresentaremos sua estru¬ 
tura e dados necessários. No próximo 
número apresentaremos seu fluxo grama 
e sua codificação. 


Agenda Telefônica 


Os dados necessários para uma 
agenda telefônica são: 

Nome: campo com 30 caracteres 
Endereço: campo com 30 caracteres 
CEP: campo com 05 caracteres 
Telefone: campo com 13 caracteres 
(. . J 

Vamos utilizar um arquivo direto 
(RAN DOM) para armazenar esses re 
gistros. 

N. registro 


NOME ENDEREÇO CEP TELEFONE 


Um arquivo direto é acessado pelo 
seu número de registro. Vamos arma 
zenar em um arquivo seqüencial, o no¬ 
mee o número do registro. 


NOME N. DO REGISTRO 


A idéia é colocar o nome e o núme 
ro do registro do arquivo direto no se 
qüencial, em ordem alfabética, para au 
xiliar uma busca. 

Exemplo: 

Sejam os nomes a colocar (nesta 
ordem) 

JOÃO, AV MlRUNA 322, CEP 04084 
TEL 5212154 

ANTONIO, AV SABIA 422, CEP 04515 
TEL 714620 

LUIZ, RUA CAMÕES 12 APTO 23, CEP 
08200 TEL 202341 

0 arquivo direto ficará como mos 
tramos na figura 2 e o sequencial ficará 
como mostramos na figura 3 

A idéia é colocar o arquivo seqüen 
ciai em um vetor da memória, ordená-lo 
e usar nova mente o arquivo seqüencial 
para isso. 

Utilizaremos o método de classifi¬ 
cação já visto ("jogador de cartas"). 


10 REH flRQUIUO DIRETO 
20 D$= CHR*<4> 

30 PRINT D$5 “OPEN TESTE, L8“ 
40 PRINT D*? “U RITE TESTE, R1“ 
50 PRINT “fiRUÜRE” 

60 PRINT D$; “URI TE TESTE, R3“ 
70 PRINT “GADO” 


80 PRINT ?“ UR I TE TESTE, R3“ 

90 PRINT “CACHORRO“ 

100 PRINT D$5 “URI TE TESTE, R4“ 


110 PRINT “GALINHA" 


Assim para procurarmos um nome, 
devemos carregar o arquivo seqüencial 
na memória (vetor), localizá-lo, obter 
seu número de registro e ir direta mente 
ao arquivo "RANDOM" com esse nú¬ 
mero de registro. 

Desse modo, utilizaremos menos a 
memória. (Imagine ter que carregar ve 


tores na memória para armazenar o ar¬ 
quivo direto, dado o seu tamanho.) 

As listagens desta seção foram 
obtidas na impressora Mônica da Elebra 
Informática. 

A unidade de disco utilizada como 
periférico do TK 2000 é a Horacio da 
Elebra Informática. 


1 JÜftO 

RU tiI RU NR 322 

< > 5212154 

2 RNTONIO 

RU SRBIR 422 

< > 714620 

3 LUIZ 

RUR CRMQES 12 RPTO 23 43201 

< ) 202341 


Fig.2 


RNTONIO 


JOflO 

1 

LUIZ 

3 


JOfiO 

1 

RNTONIO 

2 

LUIZ 

3 


Fig.3 Rg.4 


ÍO REfi ACESSO SEQUENCIAL 


Í0 REM ARQUIVO DIRETO 

20 Di = CHRí (4) 


20 = CHRÍ (4) 

30 HOME 


30 PRINT DS:"OPEN TESTE, L8" 

40 PRINT 01:"OPEN TESTE" 


40 PRINT DI-^RITE TESTE, Rl" 

50 PRINT Dt;"URITE TESTE" 


50 PRINT "ARVORE" 

60 PRINT D6;"WRITE TESTE,R3" 

60 PRINT "ARVORE" 


70 PRINT "6A00" 

70 PRINT "GADO" 


80 PRINT D%;"WRITE TESTE,R3" 

80 PRINT "CACHORRO" 


90 PRINT "CACHORRO" 

90 PRINT "GALINHA" 


100 PRINT DÍ;"WRITE TESTE, R4" 

100 PRINT "UVA" 


ÍÍ0 PRINT "GALINHA" 

ÍÍ0 PRINT DÍ:"CL0SE TESTE" 


120 PRINT Dí;"WRITE TESTE, R5" 

í20 PRINT Dl;"OPEN TESTE" 


130 PRINT "UVA" 

130 PRINT Dí;"READ TESTE" 


140 PRINT DÍ;"CL0SE TESTE" 

150 PRINT DÍ-"0PEN TESTE,L8 y/ 

140 FOR I = 1 T0 5 


160 PRINT DÍ;"READ TESTE,R4" 

150 INPIJT Aí 


170 INPUT Aí 

160 NEXT 


180 PRINT 0í'"CL0SE TESTE" 

170 PRINT D1;"CL0SE TESTE" 


190 PRINT Aí 

180 END 


200 END 


MICROHOBBY 41 



























Como localizar Cometas com o 
Apple ou TK 2000 


Antonio Fernando Bertachini 


Com o programa abaixo você poderá achar a 
posição de quinze cometas em qualquer data desejada. 


I) Pequena introdução teórica 

Além do Sol, dos planetas e de pequenos corpos cha¬ 
mados asteróides, o Sistema Solar possui alguns elementos 
de massa que são chamados cometas. Os cometas são peque¬ 
nos corpos que descrevem órbitas fortemente elípticas em 
torno do Sol (isto é, sua distância até o Sol varia muito de um 
ponto a outro de sua órbita) e com período de revolução (tem¬ 
po gasto para uma volta completa em torno do Sol) muito 
grande, da ordem de séculos em alguns casos. 

Esses pequenos corpos são invisíveis até aos mais po¬ 
tentes telescópios do mundo durante a maior parte do tempo, 
só mostrando sua existência quando se aproximam do perié- 
lio (ponto da órbita onde ele fica mais próximo do Sol). É o 
que se chama de passagem ou chegada do cometa, e acon¬ 
tecerá no início de 1986 para o mais famoso dos cometas: o de 
Halley. 

Quando essa aproximação do Sol ocorre, o cometa, que 
está carregado de gelo e poeira, se aquece e começa a perder 
matéria. Essa matéria é arrastada pelo vento solar (um fluxo de 
partícula que emana do Sol), e forma uma longa faixa brilhan¬ 
te denominada cauda do cometa. Note-se que, como essa 
cauda é formada pelo vento solar, ela sempre aponta na dire¬ 
ção do Sol, onde quer que esteja o cometa. 

Esses corpos brilhantes (em alguns casos) e caudalo¬ 
sos foram objetos de temor em séculos passados. Eram consi¬ 
derados como um aviso dos céus de que alguma desgraça em 
breve cairia sobre a humanidade. Esses preconceitos dura¬ 
ram por muito tempo, até que investigações de Halley, Apia- 
nus, Kepler e outros mostraram que os cometas são simples 
corpos celestes. 

II) Como Localizar os Cometas 

Os cometas periódicos (aqueles que passam pelo perié- 
lio em períodos regulares de tempo), podem ter suas posi¬ 
ções calculadas a partir da Mecânica Celeste. Para isso é ne¬ 
cessário conhecer os elementos orbitais (uma série de valores 
que especificam a posição de um corpo celeste) para uma 
determinada época (para os cometas a mais comum é a época 
da passagem pelo periélio). Com esses elementos, e o tempo 
decorrido entre a data base e a data desejada, calcula-se 
quanto o comenta deslocou-se e, portanto, sua nova posição. 

Repetindo esses cálculos para a Terra, tem-se a posi¬ 
ção da mesma e basta executar uma transformação de coor¬ 
denadas para obter a posição do cometa no céu da Terra. 

III) O Programa 

O programa escrito em BASIC foi feito no microcom¬ 
putador Unitron (versão nacional do Apple II), mas pode ser 
facilmente adaptado a outras versões de BASIC. 

O programa principal começa apresentando um menu 
dos cometas para escolha do usuário. Feita essa escolha, o 
programa chama a sub-rotina DADOS (linha 2000) e esta car¬ 
rega as variáveis PE, WB, OM, TP, AM, EM e IO com os valo¬ 


res da época do periélio (em anos decimais), longitude do pe¬ 
riélio (graus), longitude do modo ascendente (graus), período, 
de revolução (anos), semi-eixo maior da órbita (U.A.), excen¬ 
tricidade da órbita (admencional) e inclinação da órbita 
(graus), respectiva mente. Também os dados relativos à Terra 
(período orbital), longitude do periélio, longitude e excentri¬ 
cidade da órbita na data base de primeiro de janeiro de 1980 
são carregados nas variáveis TE, WT, EP, e ET, respectiva¬ 
mente. Com as variáveis carregadas, a sub-rotina termina e é 
feita a volta ao programa principal. 

A seguir o programa pede a data para a qual é desejada as 
informações e chama a sub-rotina ÉPOCA. Essa sub-rotina, 
que começa na linha 3000, transforma a data desejada em fra¬ 
ções decimais de ano. Por exemplo, 15 de agosto de 1984, se 
transforma em 1984, 62423, já que os dias decorridos no ano 
de 1984 até 15 de agosto (288 dias), correspondem a 62,423% 
de um ano (que dura aproximadamente 365,25 dias). 

Após esse cálculo é feita a volta ao programa principal, 
que calcula o valor de Y (diferença entre a época do periélio e a 
desejada, em anos decimais) e M (M = 360Y/TP, onde TP é o 
período de revolução do cometa, em anos). O valor de M é 
reduzido ao intervalo 0-360 graus e transformado em radianos. 
Com o valor de M e com EM (excentricidade da órbita do 
cometa), vindo da sub-rotina DADOS, o programa chama a 
sub-rotina SOLVE (linha 4000), que tem a tarefa de resolver a 
equação de Kepler, isto é, encontrar E tal que E-EM. sin (E) = 
M. Isso é feito adotando-se E — M, como tentativa inicial, e 
calculando a diferença D9 (D9 = E — EM. sin (E) — M). O 
processo iterativo continua, tomando o próximo valor de E 
como sendo o E anterior menos D8/(D8= D9/(1 — EM.cos(E)), 
até que o valor absoluto de D9 seja menor que 0.000001. 

De posse do valor de E, calcula-se a anomalia verda¬ 
deira V da fórmula tan (V/2) = (1 + EM)/(1 — EM), tan 
(E/2) e transforma-se o valor deste de radianos para graus. 

Com o valor de V calcula-se a longitude heliocêntrica 
LC (LC = V + WB) e a distância do Sol RC (RC = AM. (1 - 
EM.EM)/(1 + EM.cos(V-i-3,1416/180))), para que sejam proje¬ 
tados no plano da eclíptica e resultem em LL e RL. O valor da 
latitude heliocêntrica PSI é tirado da fórmula (1). 

(1) PSI = arc tan(sin(LC-OM). 3,1416/180). sin(IO. 
3,1416/180)) 

Agora que o cometa está localizado, precisamos loca¬ 
lizar a Terra. Começamos por chamar a sub-rotina DIAS (que 
começa na linha 6000) e calcular o número de dias passados 
entre a data base (1? de janeiro de 1980) e data desejada. Com 
este valor o programa principal calcula NE(NE = 360.D/ (TE./ 
365,2422, onde TE é o período orbital da Terra) e ME (ME = 
NE + EP—WT), com EP e WT sendo a longitude e a longitude 
do período da Terra, respectivamente, na data base. Agora, 
calcula-se a longitude heliocêntrica da Terra L (L = NE + 360). 
ET + sin(ME. 3,1416/180)/3.1416-h EP), onde ET é a excentri¬ 
cidade da órbita da Terra e a distância ao Sol RT (RT = (1 — 
ET.ET)/(1 + ET.cos(VE 3,1416/180)), onde VE = L-WT é a 
anomalia verdadeira da Terra. 

Com a Terra e o Cometa posicionados, ainda nos falta 
obter a posição em que este se encontra nos céus da Terra. 
Para isso, dividimos os esforços em duas partes: primeiro 
calcularemos sua posição no sistema eclíptico, especificando 
suas coordenadas LAM (sua distância, medida perpendicular- 
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mente à eclíptica, até a eclíptica) através das fórmulas: 

(2) LAM = 180 + L + arc tan (RLsin(L-LL)/(RT- 
RL.cos(L— LU)), se RL for maior que RT, isto é, se a projeção 
do cometa sobre a eclíptica se encontra mais perto do Sol do 
que a Terra, ou 

(3) LAM = arc tan (RT.sin(LL-L)/(RL-RT.cos(LL- 
L))) + LL, em caso contrário. 

(4) BET = arc tan (RL.tan(PSI).sin(LAM-LL)/(RT. 
sin(LL-L))) 

Em segundo lugar usaremos a sub-rotina TRANSF 
(que começa na linha 5000), para mudar o sistema de coor¬ 
denadas para o sistema equatorial. Nesse sistema são neces¬ 
sários as coordenadas da declinação (ângulo entre o equador 
celeste e o cometa) e a ascenção reta (mede a distância do 
primeiro ponto de Áries até o cometa, em horas). 

Para finalizar os cálculos, usa-se a lei dos cossenos 
para calcular a que distância RO o cometa se encontra da 
Terra, ou seja: 

RO = (RC.RC -I- RT.RT - 2.RC.RT.cos(LC-L). 
3,1416/180)) 

Ao leitor interessado em teoria de mecânica celeste, ou 
aos que desejam entender melhor os termos e equações 
usados na elaboração deste programa, recomenda-se a leitura 
do livro "Mecânica Celeste", de Nelson de Luca, da Editora da 
Universidade do Paraná. 


IV) Acionando o programa 

Após ter digitado o programa, basta teclar RUN e RE- 
TURN que ele lhe oferecerá o menu para escolha do cometa 
desejado. Com o menu na tela, basta digitar o número de sua 
escolha e pressionar a tecla RETURN. Agora é pedida a data e 
você deve fornecê-la no formato indicado, isto é: dia, mês e 
ano separados por vírgulas e o mês sendo um número de 1 a 
12 e tecla RETURN (1,1,1986 para ver o Halley em primeiro de 
janeiro de 1986). Seu micro executará o programa e mostrará 
na tela os seguintes valores: 

a) Cometa: Halley 

b) Data: 1/1/1986 

c) Declinação: —2 graus 08 min 

d) Ascenção Reta: 22 horas 20 min 

e) Distância da Terra: 0.212530 

f) Distância do Sol: 1.027949 

Com esse exemplo, você pode verificar se seu progra¬ 
ma está correto. Note que esses valores foram obtidos com 
uma calculadora e talvez não estejam iguais aos seus nas últi¬ 
mas casas. Isso é devido à diferença de números com que as 
máquinas trabalham internamente. 

Agora é só rodar o programa e procurar os cometas no 
céu, de preferência com um bom telescópio. 


Nota: Antes de digitar este programa no TK 2000, digite MP, seguido 
por RETURN, pois ele ocupa mais de 6 kBytes. 


Antonio Fernando Bertachinié acessor técnico da Kaxon Informática. 


10 PEh COMETAS 

20 REM ANTONIO FERNANDO BERTACHINI 
30 HOME 

40 PRINT "ESCOLHA 0 COMETA:": PRINT 
45 D!H CK15) 

50 FOR I = 1 TO 15 
60 READ CS(I) 

70 NEXT I 

80 DATA ENCKEJEMPLE 2 r HANEDA-CAMPOS 
,SCHUASSMANN-WACHMANN 2,BORRELLY, 
WHIPPLE,OTERMA r SCHAUMASSE F COMAS S 
OLA,SCHWASSHANN-UACHMANN Í,NEUJMI 
N 1,CROHMELIN 7 0LBERS y P0NS-BR00KS r 
HALLEY 

90 FOR I = 1 TO 15 
100 PRINT I;"- "jCKI) 

110 NEXT I 
120 INPUT A 
130 60SU8 2000 

140 HOME : PRINT "DATA (DD,MM,AAAA):" 

150 INPUT DIA,MS,YR 
160 GOSUB 3000 
170 Y = DA - PE 
180 MC = 360 * Y / TP 
190 IF MC > 0 THEN 210 
200 MC = MC + 360: GOTO 190 
210 IF MC < 360 THEN 230 
220 MC = MC - 360: GOTO 210 
230 MC = MC * 3.1416 / 180 


240 GOSUB 4000 

250 V = SQR (d + EM) / (1 - EM)) * TA 
N (E / 2) 

260 V = ATN (V) # 2:V = V * 180 / 3.1 
416 

270 LC = V ♦ UB 

280 RC = AM * (i - EM * EM) / (1 ♦ EM * 
COS (V * 3.1416 / 180)) 

290 PSI = SIN ((LC - 0M) * 3.1416 / 1 

80) « SIN (10 * 3.1416 / 180) 

300 PSI = ATN (PSI / SOR (1 - PSI * 
PSD) 

310 Y = SIN ((LC - 0M) * 3.1416 / 180 
) * COS (10 * 3.1416 / 180) 

320 X = COS ((LC - OM) * 3.1416 / 180 

) 

330 AU = ATN (Y / X) 

340 IF X < 0 THEN AU = AU ♦ 3.1416 

350 IF Y < 0 AND X > 0 THEN AU = AU + 

2 * 3.1416 

355 AU = AU * 180 / 3.1416 
360 LL = 0M ♦ AU 
362 IF LL > 0 THEN 366 
364 LL = LL ♦ 360: GOTO 362 
366 IF LL ( 360 THEN 370 
368 LL = LL - 360: GOTO 366 
370 RL = RC * COS (PSD 
380 REM CÁLCULOS PARA A TERRA 
390 GOSUB 6000 

400 NE = 360 # D / TE / 365.2422 


402 IF NE > 0 THEN 404 

403 NE = NE + 360: GOTO 402 

404 IF NE < 360 THEN 410 
407 NF = NE - 360: GOTO 404 
410 ME = NE ♦ EP - UT 

420 L = NE ♦ 360 * ET * SIN (ME « 3.1 

416 / 180) / 3.1416 + EP 

430 IF L < 360 THEN 450 

440 L = L - 360: GOTO 430 

450 IF L > 0 THEN 470 

460 L = L + 360: GOTO 450 

470 VE = L - UT 

480 RT = (1 - ET * ET) / (1 ♦ ET » COS 
(VE* 3.1416 / 180)) 

490 IF RL > RT THEN 530 
500 AJ = RL » SIN ((L - LL) » 3.1416 / 

180) / (RT - RL « COS ((L - LL) * 3.1 

416 / 180)) 

510 LAM = 180 ♦ L ♦ ATN (AJ) * 180 / 
3.1416 

520 G0T0 550 

530 AJ = RT * SIN ((LL - L) * 3.1416 / 
180) / (RL - RT * COS ((LL - L) » 3.1 


414 

/ 180)) 


í«o 

LAM 

= LL h 

► ATN (AJ) * 180 / 3.141 

õ 

550 

IF 

LAM ) 

0 THEN 570 

560 

LAM 

= LAM 

♦ 360: GOTO 550 

570 

IF 

LAM < 

360 THEN 590 

580 

LAM 

= LAM 

- 360: G0T0 570 
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HOBBYSHOP 


A MICROHOBBY man- 
tém uma seção de classifi¬ 
cados por cidades, onde 
sua empresa pode anun¬ 
ciar a preços acessíveis e, 
atingir nossos leitores de 
toda região. Este é o meio 
mais barato de sua empre¬ 
sa ter uma sustentação 
publicitária junto a um pú¬ 
blico leitor específico da 
área de Micros. 


Em anúncios padronizados 
em box de 8,5 x 3,5 cm, o 
leitor encontrará ofertas 
de serviços, produtos, 
software, hardware perifé¬ 
ricos e outros itens, lista¬ 
dos por cidades. 


Espaço adequado para: 
Escolas, 

Lojas de produtos 
para micros. 

Manutenção de 
micros. 

Livrarias. 


Para maiores informações 
consulte-nos 
Fone: (011) 826-5001 
Micromega P.M.D. Ltda. 
Rua do Bosque, 1256 
Caixa Postal 54096 
CEP: 01296 
São Paulo — SP. 


590 BET = Rl » TAN (PSD « SIN ((LAN 
- LU * 3.1416 / 180) / RT / SIN ((LL 
- L) » 3.1416 / 180) 

600 BET = ATN (BET) 

610 LAH = LAN « 3.1416 / 180 
620 GOSUB 5000 

630 R0 = S8R (RC * RC ♦ RT * RT - 2 • 
RC » RT * COS ((LC - L) » 3.1416 
/ 180)) 

640 HOME 

650 PRINT "COMETA: ";CS(A> 

660 PRINT 

670 PRINT "DATA: ";0IA;"/";MS;'7'';YR 
680 PRINT 

690 PRINT "DECLINACAO: "; 

700 IF GA = 0 ANO 00 ( 0 THEN PRINT 

71o’ PRINT GA;" GRAUS ";MIN;" MIN " 

720 PRINT 

730 PRINT "ASCENCA0 RETA: ";AH;" HORA 
S ";K5;" MIN" 

740 PRINT 

750 PRINT "DISTANCIA 0A TERRA EM U.A. 

: ";R0 
760 PRINT 

770 PRINT "DISTANCIA A0 SOL EM U.A.: 

m m 

2000 REM SUBROTINA ÍUE FORNECE 0S 0A 
DOS 

2010 0IM 0(105) 

2020 FOR I = 1 TO 105 
2030 READ D(I) 

2040 NEXT I 

2050 DATA 1974.32,160.1,334.2,3.3,2. 

209.. 847.12.1972.87.310.2.119.3.5 
.26,3.02$,.549,12.5,1978.77,12.01 
6,131.7,5.37,3.066,.64152,5.805 

2060 DATA 1974.7,123.3,126,6.51,3.48 

9.. 386.3.7.1974.36.67.8.75.1.6.76 

,3.576,.632,30.2,1970.77,18.2,188 

.4,7.47,3.821,.351,10.2 

2070 DATA 1958.44,150,155.1,7.88,3.9 

58.. 144.4.1960.29.138.1.86.2.8.18 
,4.054..705,12,1969.83,102.9,62.8 
,8.55,4.182,.577,13.4 

2080 DATA 1974.12,334.1,319.6,15.03, 
6.087,.105,9.7,1966.94,334,347.2, 

17.93.6.858.. 775.15.1956.82.86.4, 

250.4.27.89.9.173.. 919.28.9 

2090 DATA 1956.46,150,85.4,69.47,16. 
843,-93,44.6,1954.39,94.2,255.2,7 
0.98,17.2..955,74.2,1986.112,170. 
011,58.154,76.0081,17.9435,.9673, 
162.2385 

2100 PE = 0(7 * (A - 1) ♦ 1) 

2110 UB = 0(7 « (A - 1) + 2) 

2120 0M = 0(7 * (A - 1) + 3) 

2130 TP = 0(7 * (A - 1) ♦ 4) 

2140 AM = 0(7 * (A - 1) + 5) 

2150 EM = 0(7 « (A - 1) + 6) 

2160 10 - 0(7 » (A - 1) + 7) 

2170 READ TE,EP,UT,ET 

2180 DATA 1.00004,98.83354,102.59640 

3.. 016718 
2190 RETURN 


3000 REM SUBROTINA ÍUE CALCULA A DAT 
A EM ANOS DECIMAIS , 

3010 0IM AU(12) 

3020 FOR I = 1 T0 12 
3030 READ AU(I) 

3040 NEXT I 

3050 DATA 0,31,59,90,120,151,181,212 

,243,273,304,334 

3060 DA = DIA ♦ AU(M) 

3070 IF (YR / 4 - INT (YR / 4) = 0) AN 
D (MS > 2) THEN DA = DA ♦ 1 
3080 DA = DA / 365.25 + YR 
3090 RETURN 

4000 REM SUBROTINA ÍUE RESOLVE A EÍU 
ACA0 DE KEPLER 
4010 E = MC 

4020 09 = E - EM * SIN (E) - MC 
4030 IF ABS (09) < .000001 THEN 4070 

4040 DS = D9 / (1 - EM » COS (E)) 

4050 E = E - D8 
4060 G0T0 4020 
4070 RETURN 

5000 REM SUBROTINA ÍUE TRANSF0PHA C0 
ORDENADAS ECLIPTICAS EM EÍUAT0RIA 
IS 

5010 El = 23.441884 » 3.1416 / 180 
5020 ANG = SIN (BET) * CCS (El) ♦ COS 
(BET) » SIN (El) « SIN (LAM) 

5030 Dl = ATN (ANG / SÍR (1 - ANG » 
ANG)) 

5035 Dl = Dl * 180 / 3.1416 
5040 D0 = 01:D1 = ABS (01) 

5050 YS = SIN (LAM) » COS (El) - TAN 
(BET) » SIN (El) 

•5055 AL = ATN (YS / COS (LAM)) « 180 
/ 3.1416 

5060 IF COS (LAM) < 0 THEN AL - AL ♦ 
180 

5070 IF YS < 0 AND COS (LAM) ) 0 THEN 

AL = AL + 360 

5080 Al = AL / 15 

5090 FR = Al - INT (Aí) 

5100 AH = INT (Al) 

5110 X5 = INT (60 » FR) 

5120 Fl = Dl - INT (01) 

5130 GA = INT (Dl) 

5140 GA = SGN (00) * GA 
5150 MIN = INT (60 » Fl) 

5160 RETURN 

6000 REM SUBROTINA ÍUE CALCULA A DIF 
ERENCA DE DIAS 

6010 D7 = DS:M7 = MS:Y7 = YR 

6020 IF M7 < ) 1 AND M7 ( >2 THEN 

6040 

6030 Y7 = Y7 - i:»7 = M7 ♦ 12 
6040 A7 = INT (Y7 / 100) 

6050 B7 = 2 ♦ INT (A7 / 4) - A7 
6060 IF (YR < 1592) 0R (YR = 1582 AND 
MS 10! 0R (YR = 1582 AND hS = 1 
0 AND DIA ( 15 T*EN B = 0 
607C C7 = INI (365.25 » Y7) 

6080 D8 = INT (30.6001 » (M7 ♦ 1)) 

6090 JD = B7 ♦ C7 ♦ D8 ♦ DIA ♦ 1720994 
.5 

6100 D = JD - 2444228.5 
6110 RETURN 






Pesquisa de Raízes 
Um exemplo de Recursão 


Daniel R. Falconer 
Wilson José Tucci 


Temos abaixo um pequeno progra¬ 
ma, em Pascal, que calcula a raiz qua¬ 
drada de um número dado qualquer. Foi 
enviado pela nossa leitora Mônica Hoeh- 
ne Mendes, de São Paulo, com a suges¬ 
tão de que oferecéssemos um curso in¬ 
trodutório de Pascal, linguagem que 
atualmente ganha muito destaque nos 
Estados Unidos. 

0 programa que a Mônica mandou 
é um exemplo de uma ferramenta muito 
poderosa, e ao mesmo tempo interes¬ 
sante: a recursão. Sem entrar em maio¬ 


res detalhes, uma função recursiva é 
aquela que, na sua definição, "recorre" 
a si mesma. Examinando a definição da 
função RAIZ temos, no ramo ELSE do 
IF, a atribuição ANTERIOR = RAIZ 
(X,N —1): a função RAIZ é definida em 
termos de si mesma. 

0 algoritmo empregado para en¬ 
contrar a raiz quadrada de um número é 
o método de Newton, aplicado para en¬ 
contrar um zero da função f(x) = X — a 
(onde a é o número cuja raiz quadrada 
queremos encontrar). 


FROGRAM RAIZQUADRADA(INPUT,OUTPUT); 

CONST 

AVACANAOTOSSIR = TRUE; 

VAR 

As REAL; 

Ns INTEGER; 

FUNCTI O N RA I Z (X s REAL; N s I NTÈGER ) REAL; 
(% Ca1cu1 a a ra i z quadr ada de X 
recürsiva mente, pel o método de 
Newton, com N aproximações %) 

VAR ANTERIORREAL; 

BEGIN 
IF N“0 

THEN RAIZ s = X/2 
ELSE BEGIN 

ANTERIORs = RAIZ(X, N-1) ; 

RAI Z s - ANTERIOR - 
<ANTERIOR*ANTERIOR - X)/(2 * X) 

end 

END; 

BEGIN 

WHILE AVACANAOTOSSIR DO 
BEGIN 

READLN(A,N); 

WRITELN< RAIZ(A,N) ) 

END 

END. 


-"\ 


TENTE ESTA 

(para o TK 2000) 


5 REM CONTRATO DE RISCO 


10 

HGR 


20 

FOR A = 

í TO 7 

30 

HCOLOR 

= A 

AO 

FOR I = 

0 TO 60 STEP A + í 

50 

DRAM Í0 

AT 257,158: R0T= 2 

SCALE= 200 


70 

NEXT I 


80 

NEXT A 


90 

GOTO 20 



V___ J 



IMPOSTO 
DE RENDA 85 

pessoa física 

Faça a sua declaração em 
poucos minutos. 
Esqueça-se de lápis e . . . 
borracha. 

O "LEÃO" vai tremer! 


O programa foi desenvolvido para 
TRS-80, APPLE, CP 400 e 
compatíveis. Adquira o seu 
software através de revendedor ou 
pela nossa caixa postal. 


MICRO BOARD 

Caixa Postal 18968 
São Paulo - SP — 04699 
Fone: (011)532-0923 





















MUSICA PARA O TK-2000 

Vívian Bernardo 


Saiba como aproveitar os 
recursos sonoros de seu micro. 


0 microcomputador TK 2000 pode 
reproduzir sons via alto-falante da TV ao 
qual está conectado. Isto permite o uso 
de sons em seus programas de modo a 
torná-los mais interessantes e criativos, 
prendendo a atenção do usuário com os 
efeitos audio-visuais. Para realizar esta 
função, o TK 2000 possui a instrução 
SOUND que gera som em um progra¬ 
ma BASIC. O formato dessa instrução é 
SOUND X,Y onde X é a nota e Y é sua 
duração. Outro formato da instrução: 
SOUND XI, Y1 to X2, Y2 TO . . . Xn, 
Yn. Este formato reproduzirá uma série 
de notas seqüencialmente (uma escala 
de sons). A tonalidade das notas, em es¬ 
cala, pode variar de 0 a 255. Na tabela I, 
você encontra uma série de tons e seu 
valor correspondente. 


Tabela 1 

SOL 

255 

128 

64 

31 

15 

LAb 

243 

121 

60 

29 

14 

LA 

231 

114 

56 

28 

13 

Slb 

217 

108 

53 

26 

12 

SI 

203 

102 

50 

25 


DO 

192 

96 

47 

23 


DO 

182 

90 

45 

22 


RE 

172 

85 

42 

21 


Mlb 

162 

80 

40 

20 


Ml 

154 

76 

37 

18 

11 

FA 

146 

72 

35 

17 

10 

FA 

137 

67 

33 

16 

9 


A duração das notas também pode 
variar de 0 a 255, sendo que uma míni¬ 
ma tem o valor de 240, uma semínima 
tem valor de 120, a colcheia tem valor 
60, semicolcheia 30, fusa 15 e semifusa 
8. Uma música pode conter notas pon¬ 
tuadas que geram tempo de compasso 
não inteiro; por isso são disponíveis 256 
valores, de forma a permitir que você 
reproduza uma música com o máximo 
de precisão. 

O número 1 é usado para pausa. 
Nos programas em BASIC, a forma mais 
usada para executar músicas é codifi¬ 
cando as notas e pausas, de acordo com 
os códigos das tabelas, e colocá-las em 
matrizes. Também é possível obter efei¬ 
tos sonoros mais complexos usando lin¬ 
guagem de máquina. Seu programa ga¬ 
nhará em velocidade. O canal de som é 
acessado a nível de linguagem de má¬ 
quina com PEEK (- 16336) ou PEEK 
(49200) em BASIC. Cada acesso a esse 
endereço (no modo monitor = $CO30) 
produz transição de sinal que se repetido 
várias vezes com certa freqüência, gera 
som. Dessa forma, a diversidade de 
sons gerados é muito grande; é possí¬ 
vel também reproduzir o som de acor¬ 


des musicais (notas tocadas simultanea¬ 
mente). Na verdade, os sons são emiti¬ 
dos distintamente; a rapidez de acesso 
ao canal de som em linguagem de má¬ 
quina faz com que percebamos estes 
sons como emitidos ao mesmo tempo. 

Foram elaborados quatro progra¬ 
mas em BASIC para exemplificar o uso 
dos recursos de geração de som do TK- 
2000 . 


Programa 1 

Esse programa executa a música 
'Tico-Tico no Fubá" (suas 110 primei¬ 
ras notas). A estrutura do programa é 
bastante simples. As notas e as pausas 
são os dados armazenados nas linhas 
DATA do programa e estão, é claro, tra¬ 
duzidas para os valors entre 0 e 255 cor¬ 
respondentes. Após a leitura das matri¬ 
zes, é executada a música (comando 
SOUND). A matriz nota e a matriz pausa 
têm a mesma dimensão porque cada no¬ 
ta tem uma duração. A carga das matri¬ 
zes é feita na instrução 100 (comando 
READ). Os dados da matriz nota estão 
nas instruções 25 e 30 e os dados da ma¬ 
triz pausa, nas 52 e 53. A execução é fei¬ 
ta com a instrução SOUND N(l), P(l) * 
60. O fator multiplicativo 60 é colocado 
para evitar que nas linhas de DATA das 
pausas sejam digitados números gran¬ 
des (as durações são todas múltiplas de 
60). Quanto menor o fator, mais rápida é 
a execução. Caso a partitura exija repro¬ 
duzir notas com durações não inteiras, 
você deve digitar a duração na linha de 
DATA, porque não poderá usar um fator 
múltiplo comum. Após digitar esse pro- 
graminha e ver como ele funciona, es¬ 
colha outra partitura, codifique-a e subs¬ 
titua as linhas DATA alterando a dimen¬ 
são das matrizes e ouça sua música pre¬ 
dileta no micro. 


10 REM PROGRAMA DE GERACAO DE MUSICA 
PARA 0 TK-2000 
12 REM TICO-TICO MO FUBA 
15 OIM N(110),P(110) 

25 DATA 37,42,47,50,56,60,50,47,42,3 

7.37.76.80.76.72.76.56.76.80.76.7 

2.76.60.76.80.76.72.76.42.50.60.7 

6.85.90.96.56.60.64.72.56.42.47.5 
0,56,76,56,47,47,50,53,50,102,80, 

67.56.47.50.56 

30 DATA 60,37,50,37,76,80,76,72,76,5 

6.76.80.76.72.76.60.76.80.76.72.7 

6.42.50.60.76.85.90.96.56.60.64.7 

2.56.42.47.50.56.76.56.47.47.50.5 

3.50.76.60.50.37.42.47.50.56 

52 DATA 1,2,1,2,2,2,2,2,2,4,4,1,1,1, 


, 1 , 1 , 1 , 4 , 1 , 1 , 1 , 1 , 1 , 2 , 1 , 1 , 1 , 1 , 1 , 2 , 

1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1,1 
53 DATA 1,2,1,1,1,1,1,1,1,2,1,1,1,1, 

1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 4 , 1 , 1,1 
, 1 , 1 , 2 , 1 , 1 , 1 , 1 , 1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

1,1,1,1,4 

100 REM LEITURA DA MATRIZ MOTA 

105 FOR I = 1 TO 110: READ M(I): MEXT 

I 

110 REM LEITURA DA MATRIZ PAUSA 

115 FOR I = 1 TO 110: READ P(I): NEXT 
I 

120 REM EXECUCA0 

125 FOR I = 1 TO 110: SOUND Nd),Pd) 
* 60: MEXT I 
130 EMD 


Programa 2 


Este programa foi elaborado para 
simular um teclado de piano no teclado 
do TK-2000. Como você sabe, o TK- 
2000 não possui a instrução INKEY$ que 
permite conectar o teclado diretamente 
com a máquina. Usamos outra técnica 
para simular essa função: a instrução 
PEEK (39) permite descobrir o código de 
cada tecla do micro. Com o código, bas¬ 
ta usar o programa para introduzir o som 
que você quizer. 
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MÃO 

DIREITA 


MÃO 

ESQUERDA 


Teclado: A mão direita do piano 
(escala 4) está nas teclas de Z à L de 
acordo com o esquema I.; a mão es¬ 
querda (escala 2 do piano) está nas te¬ 
clas de Qà 9 (figura 1). 

O programa após o comando RUN, 
sonoriza o que você tocar, ou melhor, a 
tecla que você pressionar. A lógica de 
programação usada constitui em uma 
série de IFs encadeados, que comparam 
qual a tecla pressionada e emite o som à 
ela designado. A instrução 68 faz com 
que as comparações sejam feitas sem¬ 
pre a cada tecla digitada. A velocidade 
de comparação é relativamente grande. 
O programa permite que você toque 
qualquer música que tenha somente 
uma oitava em cada mão (não é possí¬ 
vel tocar simultaneamente). Após o co¬ 
mando RUN, o programa só para ao di¬ 
gitar-se CONTROL C (BREAK). Caso 
você queira ampliar o teclado e colocar 
outras escalas de piano, basta seguir a 
seguinte rotina: 


10 PRINT PEEK (39): GOTO 10 
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Você obterá o número 42 que é o 
código da tecla RETURN. Em seguida 
aparecerá o número 48 que é o código 
indicando a inatividade do teclado. Pres¬ 
sionando qualquer tecla você obterá seu 
código. Tendo o código, você poderá 
acrescentar nas comparações do pro¬ 
grama um som associado à tecla esco¬ 
lhida. 

Por exemplo: você digita a tecla H, 
obtém o código 37, adiciona a seguinte 
comparação no programa: 


10C 

IF 

PEEK (39) 

= 37 THEN SOUND X( 

I), 

Y(I) 






É fácil, não? Você pode 

executar as 

músicas 

que 

quizer < 

3 até compor com a 

ajuda de 

seu 

fücro. 



>LIST 





10 

REM 

PROGRAMA DE GERACAO DE MUSICA 

N0 

TECLADO 




20 

REM 

MICR0MEGA- 

OUTUBRO 

1984 

30 

REM 

TECLADO 



40 

IF 

PEEK 

(39) = 

5 THEN 

SOUND 96,1 

20 






41 

IF 

PEEK 

(39) = 

10 THEN 

SOUND 90, 

Í20 






42 

IF 

PEEK 

(39) = 

4 THEN 

SOUND 85,1 

20 






43 

IF 

PEEK 

(39) = 

9 THEN 

SOUND 80,1 

20 






44 

IF 

PEEK 

(39) = 

3 THEN 

SOUND 76,1 

20 






45 

IF 

PEEK 

(39) = 

2 THEN 

SOUND 72,1 

20 






46 

IF 

PEEK 

(39) = 

7 THEN 

SOUND 67,1 

20 






47 

IF 

PEEK 

(39) = 

1 THEN 

SOUND 64,1 

20 






48 

IF 

PEEK 

(39) = 

37 THEN 

SOUND 60, 

120 






49 

IF 

PEEK 

(39) = 

43 THEN 

SOUND 56, 

120 






50 

IF 

PEEK 

(39) = 

38 THEN 

SOUND 53, 

120 






51 

IF 

PEEK 

(39) = 

44 THEN 

SOUND 50, 

120 






52 

IF 

PEEK 

(39) = 

45 THEN 

SOUND 47, 

120 






53 

IF 

PEEK 

(39) = 

40 THEN 

SOUND 45, 

120 






54 

IF 

PEEK 

(39) = 

17 THEN 

SOUND 192 

,120 





55 

IF 

PEEK 

(39) = 

22 THEN 

SOUND 182 

,120 







Programa 3 

Esse programa vai ensiná-lo a usar 
o canal de som do micro, com acesso 
pela instrução POKE. É uma rotina que 
dispensa o comando SOUND. Digite a 
rotina: 


10 REM - m ROTINA DE GERACAO DE SOM 
NO TK-2000 CON 0 USO DA INSTRUCA 
0 'POKE' *# 

20 FOR L = 770 TO 790 
30 READ V 
40 POKE L,V 
50 PRINT V 
60 GET Al 
70 NEXT L 

80 DATA 173,48,192,136,208,5,206,i 
90 DATA 3,240,9,202,208,245,174,0 
100 DATA 3,76,2,3,96 
999 m 


Digite o comando RUN e execute a 
rotina. Você obterá os valores das ins¬ 
truções DATA. Em seguida, digite NEW 
para que essa rotina entre na memória 
do computador. Os endereços 770 à 790 
contêm os códigos sonoros do micro, e 
a rotina residente a partir desse endere¬ 
ço pode ser chamada, dentro de um pro¬ 
grama em BASIC, para gerar sons. O 
programa que utiliza essa rotina está a 
seguir. 

Sua estrutura lê os dados e finaliza 
quando encontra o n? 0 na linha DATA 
(instrução 1020). Os dois endereços an¬ 
teriores ao 770 são preenchidos com 
nota e duração através da instrução PO- 
















































KE e, em seguida, a rotina é chamada 
(CALL 770). Você pode ver que este 
programa comporta qualquer tipo de 
música, sendo mantida a estrutura das 
instruções 1000 a 1060, modificando-se 
apenas as linhas DATA, de acordo com 
a música, ou melhor os códigos cor¬ 
respondentes aos tons e pausas da mú¬ 
sica. Para finalizar não esqueça de colo¬ 
car zeros na linha DATA: Este progra¬ 
ma, como você pôde ver, não usa o co¬ 
mando SOUND e pode, portanto, rodar 
no APPLE e compatíveis. 


1000 REN - *« PROGRAMA DE MUSICA UTI 
LIZAMDO A ROTINA DE SOM *« 

1010 READ L: READ P 
1020 IF L = 0 THEN END 
1030 P0KE 768 f L 
1040 P0KE 769,P 
1050 CALL 770 
1060 G0T0 1010 

1070 DATA 192,100,154,100,128,100,12 
8,200,76,100,76,200,96,100,96,200 

1080 DATA 192,100,192,100,154,100,12 
8,100,128,200,72,100,72,200,102,1 
00,102,200 

1090 DATA 203,100,203,100,172,100,11 

4.100.114.200.72.100.72.200.85.10 
0,85,200 

1100 DATA 203,100,203,100,172,100,11 

4.100.114.200.76.100.76.200.96.10 
0,96,200 

1110 DATA 192,100,192,100,154,100,12 

8.100.96.200.64.100.64.200.76.100 
,76,200 

1120 DATA 192,100,192,100,154,100,12 

8.100.96.200.56.100.56.200.72.100 
,72,200 

1130 DATA 85,100,85,100,72,100,56,10 

0,56,250,67,100,64,100,37,250,47, 

100,76,100,76,200,85,100,56,200,6 

4.100.96.250.96.100 
1140 DATA 0,0 
1150 END 


Programa 4 

Vamos mostrar agora como unir 
som e Movimento em um programa. 
Essa técnica pode ser muito utilizada na 
animação de jogos, ou em efeitos audio¬ 
visuais de um programa em BASIC. 
Neste programa, uma figura movimen¬ 
ta-se na tela e simultaneamente ouve-se 
música. O programa principal está entre 
as linhas 20 e 40 que apresentam um 
"loop" para o movimento da figura na 
tela. A rotina que começa na instrução 
1000 é acionada na linha 25, constrói a 
figura e emite som a cada linha impressa 
na tela. Há uma particularidade quanto 
aos caracteres de impressão usados pa¬ 
ra a montagem da figura: são utilizados 


caracteres especiais de vários formatos 
diferentes. Os caracteres especiais são 
acionados digitando-se CONTROL B e 
as teclas SHIFT e CONTROL, junta¬ 
mente com a letra ou tipo do teclado es¬ 
colhido. Também, digitando-se somente 
SHIFT obtém-se outros caracteres do 
teclado. Olhe a listagem do programa 4 
e você verá que nas linhas onde os ca¬ 
racteres especiais foram usados apare¬ 
cem letras minúsculas e letras maiúscu- 
las misturadas dentro das aspas. Isso 
aconteceu porque a impressora usada 
foi uma Mônica, da Elebra, com forma¬ 
tação padrão ANADEX, que não impri¬ 
me os caracteres especiais em seu for¬ 
mato correto; imprime o código inter¬ 
pretado (as letras minúsculas e maiús- 
culas que você vê na listagem do pro¬ 
grama). 

Para digitar uma linha de impressão 
usando os caracteres especiais do TK- 
2000, você deve proceder da seguinte 
forma: 

PRINT ''digite CONTROL-B, digite os 
caracteres especiais que desejar (use 
CONTROL SHIFT + tecla ou SHIFT 4 
tecla), digite novamente CONTROL-B". 

Na tabela II, mostramos os carac¬ 
teres especiais usados no programa. Di¬ 
gite o comando CONTROL B no seu TK- 
2000 e descubra você mesmo os outros 
caracteres especiais. 


Tabela II 

SHIFT 

QUICT 

CARACTERE 

CONTROL 

onir 1 

ESPECIAL 

1 


— 


A 

f 


S 

\ 


D 

r 


F 

“1 


G 

-L 

G 


= 

D 


— 

C 


1 


C 

L 

V 


1 


V 

J 


B 

-1 


N 

h 


Z 

V 


X 

J 


2 REh SOM E MOVIMENTO 
S 0IM H(52),P(52) 

10 HOME 

12 F0« I = 1 TO 52: READ N(I): NEXT I 

14 FOR I = 1 T0 52: READ PU): NEXT I 

15 I = 0: REST0RE 
20 FOR C = 1 T0 8 

22 IF C = 5 THEN RESTORE :I = 0: FOR 
J = 1 T0 200: NEXT J 
25 60SU6 1000 
30 NEXT C 

35 FOR J = 1 T0 300: NEXT J 
40 GOTO 10 
1000 LET R = 5 

1010 VTAI R: HTAB C 

1020 PRINT * ri—r» - 

1025 LET I - I ♦ 1: S0UN0 N(I),P(I) « 
60 

1030 VTAB R ♦ l: HTAB C 

1035 PRINT " rZ ri * 

1038 LET I = I M: S0UN0 N(I),P(I) « 
60 

1040 VTA8 R ♦ 2: HTAB C 
1045 PRINT " rZ rC 

1047 LET I * I ♦ 1: S0UN0 N(I),P(I) * 
60 

1050 VTA8 R ♦' 3: HTA8 C 

1055 PRINT * rZ rt * 

1057 LET I * I ♦ 1: S0UN0 N(I),P(I) « 
60 

1060 VTAB R ♦ 4: HTAB C 

1065 PRINT " rZrXrt r Zr ArArAr[ 

rt* 

1067 LET I = I ♦ l: SOUND N(I),PU) i 
60 

1070 VTAB R ♦ 5: HTAB C 

1075 PRINT * rZ rXrXrXrXrXrXrX rXr 

XrXrt* 

1078 LET I = I ♦ 1: SOUND N(I),P(I) « 

60 

1080 VTAB R ♦ 6: HTAB C 

1085 PRINT " -rZrrrYrY r_ rb" 

1086 LET I * I ♦ i: S0UN0 N(I),PU) « 

60 

1088 VTAB R ♦ 7: HTAB C 

1090 PRINT * rZ rArArArArArArA rAr 

ArArt* 

1091 I = I ♦ t: SOUND NU),PU) » 60: VT 
AB R ♦ 8: HTAB C 

1092 PRINT * rZrArC rZrXrXrXrC 

rt* 

1093 1 * 1 * 1: SOUND NU),PU) * 60: VT 
AB R ♦ 9: HTAB C 

1094 PRINT " rZ ri 

1095 I » I ♦ l: S0UN0 NU),PU) » 60 
1100 VTAB R ♦ 10: HTAB C: PRINT * 

rZ r[ * 

1105 I = I ♦ i: SOUND NU),PU) * 60 
1110 VTAB R ♦ li: HTAB C: PRINT * 
rZ rt " 

1112 I * I ♦ i: S0UN0 NU),PU) « 60 

1115 VTAB R ♦ 12: HTAB C: PRINT * 

rn-~ro * 

1116 I = I ♦ i: S0UN0 NU),PU) * 60 

1117 RETURN 

1120 DATA 47,42,35,37,42,31,31,31,28 

,37,35,42,42,43,35,37,42,47,23,25 

,28,31,35,37,42 

1130 DATA 47,42,35,37,42,31,31,31,28 
,37,35,42,42,42,35,37,42,47,31,42 
,37,47,31,42,37,47 
1135 DATA 47 

1140 DATA 4,1,1,1,1,2,2,1,1,1,1,2,2, 
1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,1 
,2,2,1,1,1,1,2,2,1,1,1,1,1,1,1,1, 

1,1,1,1,4 
1145 DATA 4 


Após digitar todos esses progra¬ 
mas de música, tente você mesmo fazer 
outros com músicas de sua preferência, 
de sua autoria, ou até mesmo jogos in¬ 
crementados de sons iguais aos das má¬ 
quinas de fliperama. Então mãos à obra. 
Use e abuse do som de seu micro! 
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Disco TK 


Gustavo Egídio de Almeida 

Este programa funciona basica¬ 
mente como um arquivo onde, ao invés 
de arquivar fichas ou dados pessoais, 
são arquivados discos, ou seja, uma 
discoteca. 

Para você que dispõe de diversos 
discos (que geralmente ficam empilha¬ 
dos relaxadamente em estandes em¬ 
poeiradas e sujeitos a um "desmorona¬ 
mento") e costuma mudá-los de lugar 
constantemente, não se importando 
muito em classificá-los de acordo com 
as músicas, grupos ou conjuntos musi¬ 
cais e que, com esta constante mudan¬ 
ça de lugar, nunca sabe onde está aque¬ 
le determinado disco a que tanto procu¬ 
ra naquele momento para ouvir aquela 
tão desejada música, fizemos o "Disco 
TK" — um programa que arquiva seus 
discos, numerados e colocados na or¬ 
dem que você quiser. 

Para 16K de memória é aceito um 
máximo de 40 discos, quantidade essa 
que pode ser ampliada com acoplamen¬ 
to de uma expansão de memória de 48K 
ou 64K. 

Descrição 

Ao ser carregado, o programa sai 
"rodando" e aparece no vídeo o menu 
com todas as instruções de uso, cada 
uma contendo sua respectiva tecla de 
acionamento (figura 1). 


M-APRESENTACAO 

DOS DISCOS. 

L-LISTAGEM DO 

DISCO. 

A-ALTERACAO 


R-ACRÉSCIMO 


N-NOUO ARGUIUO 


G-GRAUACAQ DO 

NOUO ARQUIUO 


Fig.1 


A única tecla que você terá aces¬ 
so neste momento, por medida de se¬ 
gurança, será a tecla N. 

A explicação para tal fato é que, 
caso você pressionasse alguma outra te¬ 
cla, por exemplo a tecla M, deveria ser 
apresentado no vídeo todos os títulos 
das músicas. Porém, como todos esses 
títulos são armazenados na matriz DIM 
A$ e neste momento ela está vazia, 
ocorrerá fatalmente um código de erro 
no canto inferior da tela, sendo o pro¬ 
grama interrompido neste ponto. A te¬ 
cla N serve para iniciar um arquivo. Ao 
ser pressionada será apresentada uma 
mensagem, solicitando o número de dis¬ 
cos do arquivo. Neste momento, você 
deverá digitar um número entre 1 e 40 e 
pressionar NEW UNE logo após. 

A seguir, você deverá escrever o tí¬ 
tulo de cada disco, digitando NEW UNE 
após a inserção de cada um. 


Junto a cada título, você poderá 
colocar também o nome do conjunto, 
orquestra, etc., assim como o ano em 
que foi lançado, lembrando que no má¬ 
ximo são aceitos 50 caracteres por tí¬ 
tulo. 

Após serem digitados todos os tí¬ 
tulos, será pedido na tela que você entre 
com a listagem das músicas de todos os 
discos, lembrando que no máximo são 
aceitos 200 caracteres por listagem. Pa¬ 
ra cada listagem pedida é mostrado na 
tela o respectivo título do disco. 

Após serem inseridas todas as lista¬ 
gens, surgirá na tela uma mensagem in¬ 
dicando que o arquivo foi registrado, 
surgindo o menu inicial logo em se¬ 
guida. 

Agora qualquer uma das teclas do 
menu poderão ser acessadas. Caso vo¬ 
cê pressione a letra M, surgirá na tela 
uma apresentação contendo todos os 
títulos das músicas. 

Para obter a listagem dos discos, 
pressione L e será pedido o número cor¬ 
respondente ao disco. Ao digitar esse 
número, surgirá na tela o título do disco 
com sua respectiva listagem. 

Se você desejar fazer alterações em 
algum título, acrescente algum dado 
(data, nome do cantor, conjunto . . .) 
ou substitua-o por algum outro título, 
bastando para isto, pressionar a tecla A. 
Será então pedido o número do disco a 
ser alterado, a seguir o novo título do 
disco e posteriormente, sua listagem. 

Caso você venha a aumentar sua 
coleção de disco e queira aumentar ain¬ 
da mais o seu arquivo, use a tecla R, 
que lhe será pedido um novo título e 
posteriormente a sua listagem. 

Para finalizar as instruções do menu 
temos como última opção a gravação do 
arquivo (tecla G). 

Será pedido o nome do novo arqui¬ 
vo e a seguir será efetuada a operação 
de gravação. 

Se você dispuser de um micro com 
maior capacidade de memória e desejar 
uma ampliação do arquivo, serão neces¬ 
sárias algumas modificações que devem 
ser seguidas com atenção. Dê uma olha¬ 
da na linha abaixo: 


4-lLET K =4-0 


Nessa linha armazena-se na variá¬ 
vel K, que corresponde ao número má¬ 
ximo de discos que o arquivo suporta. 
Possuindo um TK com maior capacida¬ 
de de memória, podemos alterar essa li¬ 
nha com um valor mais alto para a va¬ 
riável K. Lembrando-se que para alterar 
esse valor, devemos alterar também o 
valor da linha 1003: 


1003 IF I > 4-0 THEN GOTO 1000 


Para digitar o programa, devemos 
seguir a seguinte ordem: 

1) Digite primeiramente o progra¬ 
ma monitor da figura 2, lembrando que a 
linha 1 REM deve conter 21 caracteres 
quaisquer. 

2) Tecle RUN (NEW UNE) e entre 
com os códigos em decimal listados na 
figura 3. 

3) Após a entrada desses códigos, 
delete as linhas 9000 em diante. 

4) Dê o comando direto POKE 
16510,0 seguido de NEW UNE. 

5) Complete seu programa com a 
listagem a seguir: 


1 

PEM 000000000000000000000 

9000 

FOR F =16514. TO 16514. + 20 

9010 

PRINT F 

9020 

INPUT I 

9030 

PRINT I 

904.0 

POKE F,I 

9050 

NEXT F 

Rg.2 


16514-. . .237 


16525. . . 124. 

16515...91 


16526...205 

16516 ... 12 


16527...0 

16517. . .64- 


16523...103 

16513. . .4-2 


16529...1 

16519...12 


16530...131 

16520. . .64- 


16531...2 

16521...125 


16532...237 

16522...193 


16533...176 

16523...33 


16534.. . .201 

16524-. . . 111 




Fig.3 




Errata: 


Investigação Policial, pu¬ 
blicado na edição 14. 

Nilson Martelo 

"Um leitor me telefona e 
chama a atenção para a sub 
rotina da página 18, "que 
não roda". Realmente não 
roda do jeito que está. Cor¬ 
reção: 

Na linha 1030, deveria 
ser: 

1030 PRINT I; TAB 8; 

(Faltou o ponto e vírgula 
após o 8)" 

Agradecemos o autor do 
artigo por ter apresentado 
esta falha, que agora trans¬ 
mitimos aos leitores. 

_ J 
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Listagem 



0BREM GOSUB ?£RNDE£RND?LEN 5? 


260 IF NOT INKEY $ = "" THEN GOTO 

?LN ?*B B GOSUB BTRN 


100 

2 REM REGISTRO DE DISCÜo 


270 GOTO 215 

3 SLOU 


950 CLS 

4- LET K =4-0 


951 PRINT RT 10,2;"QURL DISCO D 

5 DIM R$ (K.200) 


ESEJA RRQUIURR" 

6 DIM B$ í K,50) 


953 LET X =141 

7 LET 1=0 


959 PRINT RT 13,0."DE 0 TITULO 

20 LET X = 1 



100 CLS 


960 INPUT B$ (X) 

102 POKE 164-13,2 


965 PRINT RT 13,0,"DE R LISTAGE 

105 PRINT AT 0,10,"DI3C0TK",RT 


M" 

0,10; 


967 INPUT R $( X 3 

110 PRINT RT 7 ,0;"M-APRESENTACA 


969 CLS 

0 DO5 DISCOS." 


970 PRINT RT 10,2;" DISCO R 

120 PRINT RT 9.0,"L-LISTAGEM DO 


RQUXURDO 

DISCO. " 


972 FOR UI = 1 TO 4-0 

130 PRINT RT 11,0;"R-RLTERRCRO " 


973 NEXT U 

14.0 PRINT RT 13.0; "R-RCRESCIMO" 


975 LET 1=1+1 

14-5 PRINT RT 15,0 ;"N-NOUO RRQUI 


930 GOTO 100 

UO" 


990 CLS 

14-7 PRINT RT 17.0; "G-GRRURCRO D 


995 PRINT RT 0,0;"QUANTOS DISCO 

0 NOUO RRQUIUO " 


5 DESEJA RRQUIURR" 

150 IF INKEY$="M" RND I>0 THEN 


997 PRINT .," (MÁXIMO- >4-0 DISCOS 

GOTO 200 


) " 

155 IF INKEY$="G" RND I>0 THEN 


1000 INPUT I 

GOTO 2000 


1003 IF I 4.0 THEN GOTO 1000 

160 IF INKEY$="R" RND I>0 THEN 


1004- PRINT RT 0,0. "DIGITE ÜR TIT 

GOTO 104-5 


ULOS DOS DISCOS" 

170 IF INKEY$="R" RND I>0 THEN 


1005 LET K =1 

GOTO 950 


1006 PRINT ,,"CADA TITULO DEUE C 

130 IF INKEY $ = "L" RND I>0 THEN 


ONTER 5Ó LETRAS NO MÁXIMO" 

GOTO 1500 


1009 FOR C=1 TO K 

135 IF INKEY$="N" THEN GOTO 990 


1010 INPUT B $ í C ) 

190 GOTO 105 


1015 NEXT C 

200 LET C = 1 


1019 PRINT RT 0.0, DIGITE R LIST 

201 LET X =0 


AGEM DE CRDR DISCO" 

205 CLS 


1020 PRINT .."CRDR LISTAGEM DEUE 

207 POKE 164.13,0 


CONTER 200 LETRAS NO MRX 

210 PRINT RT 22 10 IHHI 


IMO" 

220 LET X =X + 1 


1021BFOR C =1 TO K 

225 IF X>I THEN LET X=1 


1022 PRINT RT 10,0,B $ í C 3 

226 IF NOT INKEY *="" THEN LET B 


1024- INPUT H$(C) 

$ ( X ) =B $ ( I ) 


1025 NEXT C 

230 PRINT RT 13,0, B$ (X) ; "/// " ; 


1029 CLS ,„_ 11T|1 

X 


1030 PRINT RT CO ARQUIU 

235 FOR F =1 TO 20 


O REGISTRADO" 

236 NEXT F 


1035 FOR F=i TO 50 

24-5 LET ü=U3R 16514- 


1036 NEXT F 

24.6 LET- Q =U5R 16514- 


104-0 GOTO 100 

24-7 LET Q=U5R 16514- 


1045 CLS 


1050 PRINT PT 5.0; "DIGITE 0 NUME 
RO DD DISCO OUE IRA SER ALTERADO 


1055 INPUT T 

1056 CL5 

1060 PRINT PT 5.0;"DIGITE 
TITULO DO DISCO" 

1070 INPUT E$m 
1075 PRINT PT 5.0;"DIGITE 
PGEM DO DISCO 
1077 INPUT fi*(T) 

1030 PRINT PT 5.0,"NOUO D 


O NOUO 


A LIST 
ISCO PR 


OUIUPDO” 

1090 FOR F = 1 TO 50 

1091 NEXT F 


1100 GOTO 100 


1500 CLS 

1505 PRINT PT 0,0,"DIGITE O NUME 
RO CORRESPONDENTE PO DISCO E QBT 
ENHP P LIST PGEM DAS MUSICAS." 
1510 INPUT Z 

1515 LET C=Z 

1516 IF Z=0 THEN GOTO 100 

1517 PRINT PT 5,0;"TITULO";PT 5, 
0;B$(C3 

1513 PRINT "- 


1520 PRINT ,."LISTPGEM” 

1521 PRINT 

1522 PRINT P $(C) ; “/// ";C 

1525 PRINT PT 21,0 "P/UOLTAR PO 
MENU INICIPL TECLE 0" 

1610 GOTO 1510 
1615 ST OP 
1620 SAUE 'RB" 

1630 RUN 
2000 CLS 

2005 PRINT PT 10,0;"DE O NOME DO 
NOUO PROUIUO" 

2006 INPUT 5$ 

2007 CLS 

2010 PRINT PT 10,0:"COLOQUE O GR 
PUPDOR EM POSICPÜ DE GRPUPR E 
TECLE NE Ui LINE" 

202© INPUT P$ 

2030 SPUE 5$ 

204-0 PRINT "PROUIUO GRPUPDO" 

204-5 PRINT PT 20,0 ;"PRESSIONE NE 
U LINE" 

2050 IF INKEY$ =" THEN GOTO 2050 
2060 GOTO 100 


Como Colaborar com 
Microhobby 


Temos recebido várias cartas de 
pessoas interessadas em colaborar co¬ 
nosco, perguntando quais os critérios 
para publicação. Embora tenhamos usa¬ 
do, várias vezes, um anúncio da casa 
onde indicávamos como colaborar com 
Microhobby, resolvemos colocar neste 
número novas regras, de maneira a nos 
organizarmos melhor, garantindo tanto 
os interesses dos leitores, como os da 
revista Microhobby. 

Assim, colocaremos algumas re¬ 
gras, que entrarão em vigor a partir des¬ 
ta publicação. As colaborações recebi¬ 
das anteriormente serão analisadas, 
uma a uma, e entraremos em contato 
com os autores oportunamente. 

Assim, ficam estabelecidas as se¬ 
guintes regras: 

a) Os autores que enviarem cola¬ 
borações para Microhobby aceitam es¬ 
tas regras em carta anexa ao artigo. 

b) Uma vez recebida a colabora¬ 
ção, fica implícito que seu autor auto¬ 
riza a publicação de seu artigo. 

c) Os artigos passarão por uma 

v___ 


triagem e os autores dos artigos aceitos 
receberão uma comunicação onde cons¬ 
tará: valor da remuneração estabelecido 
pela redação, segundo seus critérios; 
um contrato de seção de direitos auto¬ 
rais que deverá ser assinado e devolvido 
à redação dentro de, no máximo, 10 dias. 
Qualquer discordância dos termos deve¬ 
rá ser comunicada neste período. 

d) O pagamento será efetuado 
após a publicação do artigo, desde que 
o contrato tenha sido assinado. Caso o 
artigo já tiver sido publicado, o autor po¬ 
derá assinar o contrato no momento do 
pagamento. 

e) Os artigos não aceitos serão de¬ 
volvidos aos autores (inclusive material 
anexo: fitas e listagens). 

f) Os artigos e programas remune¬ 
rados serão considerados propriedade 
da Micromega PM D Ltda., podendo es¬ 
ta fazer o uso que lhe convier (inclusive 
não publicá-lo). 

g) As colaborações poderão ser: 

1) Artigo sobre assuntos relativos à 
Informática de um modo geral; 


2) Artigos sobre computadores de 
uma das seguintes linhas: TK 83/85, TK 
2000, Apple, TRS-80 ou seus compatí¬ 
veis. 

3) Programas para estas mesmas li¬ 
nhas. Junto com a listagem do progra¬ 
ma deverá vir um texto explicativo so¬ 
bre o funcionamento do mesmo, utili¬ 
zação, detalhamento, ou o que mais o 
autor achar conveniente. O computador 
utilizado deverá estar claramente indi¬ 
cado. 

h) Programas acompanhados por 
fitas serão mais facilmente analisados. 

i) O texto dos artigos ou progra¬ 
mas deverão vir datilografados ou, pelo 
menos, escritos com letra legível. 

j) Os autores asseguram a originali¬ 
dade do texto e dos programas. As fon¬ 
tes deverão ser citadas. 

Estes são os regulamentos. Toda¬ 
via, quando seu autor manifestar-se ex¬ 
pressamente por carta, poderemos estu¬ 
dar alterações, desde que sejam conve¬ 
nientes para ambas as partes. 

_ J 
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COME-COBRA 



Gustavo Egfdio de Almeida 


Você é uma cobra que está perdida em um labirinto. 
Ao caminhar, você terá que comer pequenos alimentos depo¬ 
sitados no solo (.) e, por trás de seu percurso, será deixado 
um grande rastro (:) (figura 1). 

Porém, as coisas não são tão simples assim e você es¬ 
tará sendo incansavelmente perseguido por um imenso e ater- 
rorizante monstro (§). 

No interior do labirinto, será encontrado um alimento 
de maiores propriedades nutritivas (o) e, caso você o coma, 
ganhará mais pontos. 

Os movimentos, tantos do monstro como os seus (da 
cobra), são feitos através de POKEs na tela, ao invés de usa¬ 
rem-se PRINTs, possibilitando um aumento na velocidade do 
jogo. 

Para mover-se no interior do labirinto, use as teclas 5, 
6, 7, 8 ou o joystick. Você deve estar pensando que a movi¬ 
mentação destes jogos é feita simplesmente pressionando 
qualquer uma destas teclas, no momento em que quiser, para 
mover o símbolo (/). Porém, engana-se. Você, ou seja, a 
cobra, só anda no sentido anti-horário e pode mudar de faixa 
apenas quando se encontra nas partes totalmente brancas do 
labirinto. 

Com o monstro (§) já ocorre o inverso: ele percorre 
o sentido horário do labirinto e, a qualquer momento, poderá 
pegá-lo de frente. Caso você seja pego, ocorrerão piscadas 
na tela, implicando no final do jogo e surgirá seu placar e o 
recorde do jogo (figura 2). 

Caso você consiga comer todos os pontos, uma nova 
etapa será iniciada, só que, desta vez, as coisas se inverterão, 
ou seja, você terá agora que comer (:) ao invés de (.). Esta é 
denominada a segunda fase do jogo. 

Na listagem, apresentada a seguir, os gráficos usados 
nas linhas de impressão devem ser rigorosamente os mesmos. 



A linha 1 REM da listagem deve conter 20 caracteres 
quaisquer. Ao rodar o programa, esta linha se carregará auto¬ 
maticamente com os códigos decimais e o jogo se iniciará logo 
em seguida. 

Boa sorte! . . . 

Memória ocupada: 4380 bytes 





3 SLÜUí 

4 LET H1=0 

5 LET 5=0 

6 LET 51=0 
5 Rh ND 

10 PR In 



L’5 LET Q=0 
30 PRInT 

MMM.i 

40 PRINT 
...... . 1.1 

50 PRI NT - 

mu 

50 PRINT 


? 0 P RINT 1 

•a.a.a 

80 PRINT I 

• • 1*1* 

30 PRINT 1 


1 

m 
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100 FOR h =1 rn 4 . 

110 PRINT ”1”:T9£ ,=: 
•^1" ; TRB 31; 

120 NEXT 9 
130 PRINT 


14-0 PRINT 

-S-S-S 

150 P RINT 

MU 

160 PRINT 

.s.s 

170 PRI NT 

MMMS 

ISO PRINT 
^^^ÃlNT 
200 PRINT 


Í- 

f- 




= 82 LbT V=216 
205 LET 0=14. 
207 LET H =27 
20S LET Ui=U 
í10 PRINT 


15 LbT fil =PEEK 16396+256+PEEK 
16397 

220 LET Si=0 

225 LET L9 = 1 

230 LbT 9=91+673 

235 LET LB =1 

240 LbT B=91+299 

245 LET 92=0 

250 LET 0=1 

2P2 LbT 0 =91 + INT (PND + 6605 

= i4 I;- PbEK 0-i >27 PND PEEK Ool 
4 THEN GOTO 252 

,255 Ir PbEK 0=H THEN LET U1=U1- 

255 POKE 0.52 
257 LET U=ú-i 
2b3 Ir 5 > 1 THEN RETURN 
260 LET D=-33 

= 70 Ir hl=H THEN LET 3=6+1 
230 Ir PEEK (9+C)=123 THEN GOSü 
B 400. 

290. POKE 9,0+ £ (92 =H + (92=0) ) 

292 IF S=Ui THEN 003U5 900 
.295 Ir INKEV $ ■; >"*• 9ND PEEK (9 + 0 
.i =0 THbN GOSUB 700 
300 LET 9=9+0 


500 ' 
0 0 5 U 


301 

Ir 9=0 THEN LET 51 

= 51 + ' 

302 

IF 9=0 THEN GOSUB 

252 

304- 

LET 92 =PEEK 9 


305 

IF PEEK 9=12 THEN 

GOTO 

310 

POKE 9,24 


320 

IF PEEK ÍB-D3=123 

THEN 

5 4-50 


330 

POKE 5.El 


335 

Ir Bi=0 9 ND 0=0 9 ND L9 

THEN 

GOSUB 300 


“7 

Ir Bi >0 THEN LET 

0=0 

340 

345 

Íf^ pfê.K *B =24 THEN 

G OT ü 

350 

LET Bi =PEEK. B 


360 

POKE B,12 


370 

GOTO 270 


400 

LET X = 0 


402 

IF 0=1 THEN LET X = 

— 3 3 

405 

IF X = - 3 3 T H b N G 0 T 0' 

435 

410 

IF 0 =-33 THEN LET 

X = -l 

415 

IF X =-1 THEN GOTO 

435 

420 

IF C=-l THEN LET X 

=33 

425 

IF X =33 THEN GOTO 

435 

430 

IF 0=33 THEN LET X 

= 1 

435 

LET C=X 


440- 

RETURN 


450 

LET Y =0 



452 I- D = -33 THEN' =1 - 

4-55 Ir Ys-33 THEN GOTO 435 

450 Ir D = 1 THEN _3 T ■=33 

45b Ir Y=33 THEN GOTO 435 

470 Ir D =33 THEN lE~ =-i 

475 Ir Y =-1 THEN GOTO 435 

4-30 Ir D = -1 THEN _E“ Y =-33 

435 LET D=Y 

490 RETURN 

300 POKE 9,23 

510 FOR M = 1 TO 26 

b20 R9ND USR 15=114 

530 NEXT M 

535 .ET 5=3+51 

590 .OU 

500 f 9INT 9T 9 9 5CÜPEW 2 ' - 5 

605 IF Hl <6 THEN _ET Hl =3 

510 PRINI T9B 9 Hl -500REl"Y H1 

620 P9USE 3500O 

630 CL5 

640 GOTO 5 

700 LET 93=9 

705 LbT 9$=INKEY$ 

710 LbT 9=9+ í { (INKE v í=”3” ) - í INK 
tY$ = " 5 ‘') 3 4(PB5 0 =33 3 + ( (INKEY$= 6 
" ) - í IN K E Y $ =' ’ 7 ”) 3 ♦ 3 3 + í s g s r -±\ ■> 
720 IF 9>91+726 OR 9 91 OR PEEK 
fioS THEN LET 9=93 
730 IF 9=93 THEN RETURN 
740 LbT Lb =L9+'£0 =-i3 + ÍP$=" 6 ”) + ( 
0 = 13 + (9$ = !: 7” ) + (0 = -33 + (9$ = ,, 5" 3 + ( 
0 =33 3 *(9 $ = ’ 3“ 

750 IF L5 =LP THEN LET L5=i_9-1 

755 LET L9=L5 

760 RETURN 

800‘LET 0=1 

310 LET Di=D 

320 GOSUB 450 

330 LET D2=D 

340 LET D=D1 

350 LET w =L9-LB 

850 Ir U >1 THEN LET U = i 

370 Ir U<-1 THEN lET U=-i 

375 LET LB=LB+U 

830 LET B =B + U + D2 +2 

390 RETURN 

900 LET 51=51+5 

910 LET 5=0 

920 LET G=H 

930 IF HoG THEN GOTO 950 
940 LET H=14 
950 LET U1 =33 
960 RETURN 

1000 LbT M$="042 012 064 005 023 
043 035 126 254 116 032 003 016 
248 201 198 123 119 024 242” 
1010 F9ST 

1020 FOR M=16514 TO 16533 
1030 POKE M.U9L Mií TQ 33 
1040 LET M$=M$iF TO i 
1050 NEXT M 
1060 RETURN 

1100 59 U E •' * 0 0 M E / 0 0 B RS'' 

1105 SLOU 

1110 PRINT T9B 10,"00ME-00BR9” 

1120 PRINT 9T 3,0;“UOCE E" 9 COE 
RRi/3 b CEUE COMER 0 M9I0R NUMER 
0 POSSIUEL DE” 

1130 PRINT "(,) >F9SE-a 
1140 PRINT "(:3 >F9SE-£” 

1150 PRINT ”0950 COM9 (03 G9NH9R 

H MflIS PT05” 

1160 PRINT ”0 MONSTRO E* REPRESE 
NT9D0 POR (£ 3 ” 

1170 PRINT 9T 21 0;"TECLE 0 P9R9 
C0MEC9R” 

1180 Ir INKEY $ < >“ 0 ” THEN GOTO 11 
30 

1190 CL5 

1200 RUN _ 
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LIVROS 


Tecnologia e Soberania Nacional 



Ana Lúcia de Alcântara 


Autor: Waldimir Pirró Longo 

Editora Nobel e PROMOCET - 
Promoção de Ciência e Tecnologia 

Através da iniciativa das duas 
instituições surgiu este livro que, se¬ 
gundo a editora, pretende situar a 
tecnologia como fator estratégico de 
bens e serviços e como ordenadora 
da distribuição da riqueza e do tra¬ 
balho no mundo atual. 

A PROMOCET, uma institui¬ 


ção voltada à promoção do desenvol¬ 
vimento científico e tecnológico, e a 
Editora Nobel publicam o texto de 
Pirró com o intuito de fornecer ao 
público “um entendimento claro so¬ 
bre as questões centrais que envol¬ 
vem a definição de um modelo eco¬ 
nómico-tecnológico para o Brasil". 


O livro 

“Tecnologia é o conjunto orga¬ 
nizado de todos os conhecimentos 
empregados na produção e comer¬ 
cialização de bens e serviços e o seu 
domínio é o que permite a elabora¬ 
ção das instruções necessárias para a 
produção dos mesmos”. A partir 
deste pressuposto, o autor desenvol¬ 
ve todo o texto do livro, mostrando 
desde os conceitos básicos sobre 
ciência e tecnologia até os parâme¬ 
tros que envolvem o poder nacional e 
a soberania de um país. 

O autor afirma: as tecnologias 
são interdependentes, existindo as 
tecnologias correlatas (central e pa¬ 
ralela). Este fato, segundo Longo, 
traz conseqüências sérias a serem 
consideradas; uma delas é a incapa¬ 
cidade de um país — cujo setor pro¬ 
dutivo é fortemente desnacionaliza¬ 
do e no qual as empresas nacionais 
são dependentes de tecnologias im¬ 
portadas — levar avante uma polí¬ 
tica de independência do exterior em 
algum setor estratégico isolado. Co¬ 
mo exemplo, o autor cita a eletrô¬ 
nica: “ao se permitir a total desna¬ 
cionalização da indústria de compo¬ 
nentes, torna-se extremamente difí¬ 
cil atingir razoável independência 
em algum produto que dependa da 
eletrônica”. 

Assim, Waldimir Pirró Longo 


desenvolve sua argumentação. Em 
características da tecnologia e sua 
comercialização, ele ressalta a im¬ 
portância da tecnologia explícita — 
que se encontra acumulada em pes¬ 
soas, sob a forma de conhecimentos 
intelectuais e habilidades manuais 
— e afirma que a transferência de 
tecnologia geralmente está ligada a 
ela (uma vez que, em geral, é forma¬ 
lizada através de contratos): ilus¬ 
trando ainda que realmente ocorre 
uma venda, na qual, quase sempre, 
o vendedor esconde os conhecimen¬ 
tos e vende as instruções. 

Sobre este tema (transferência 
de tecnologia), Longo dedica um ca¬ 
pítulo especial mostrando que “a 
verdadeira transferência só ocorre 
quando o receptor absorve o conjun¬ 
to de conhecimentos que lhe permi¬ 
te inovar”. E complementa: “a 
transferência não se solidifica se o 
comprador não dominar os conheci¬ 
mentos envolvidos a ponto de ficar 
em condições de criar nova tecno¬ 
logia”. 

“Multinacionais e tecnologia, 
invesdmçntos em P&D, tecnologia 
na conjuntura estratégica mundial” 
são capítulos que se preocupam em 
demonstrar a importância do domí¬ 
nio do conhecimento tecnológico e as 
conseqüências para os setores social 
e econômico. Num dos capítulos, 


Pirró Longo ilustra: “a formação de 
uma sociedade científica e tecnolo¬ 
gicamente capaz começa no ensino 
de 1? e 2v graus, nos quais o apren¬ 
dizado das ciências deve ser condu¬ 
zido com competência e seriedade” e 
conclui afirmando que o raciocínio 
independente e a criatividade devem 
ser exercitados e perseguidos como 
metas prioritárias na formação dos 
alunos. 

O autor soube finalizar o livro 
de forma bastante expressiva divi¬ 
dindo dois itens importantíssimos da 
discussão sobre tecnologia, poder e 
independência econômica. Na pri¬ 
meira etapa, vislumbrou-se os efei¬ 
tos da dependência tecnológica nos 
diversos componentes do Poder na¬ 
cional — nos campos psicossocial, 
econômico, militar e político — e fi¬ 
nalizando, o autor apresenta aspec¬ 
tos que, para ele, são importantes 
para a elaboração de um plano go¬ 
vernamental no desenvolvimento da 
ciência e da tecnologia: 

— “Para que um plano de de¬ 
senvolvimento de C&T tenha conse¬ 
qüências, é preciso que ele seja pre¬ 
cedido de um planejamento explíci¬ 
to para o setor produtivo, em que fi¬ 
que claro qual é o espaço reservado 
para a criatividade local, onde é pa¬ 
ra valer o esforço da inteligência na¬ 
cional”. 
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44 Dynamic ZX-81 
Games and 
Recreations 

Autor: lan Davies 
Editora Prentice-Ha/I 
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Como o próprio título afirma, o livro 
è constituído de 44 programas-jogos em 
BASIC para micros ZX 81 e também os 
compatíveis com os TKs. 

Editado em inglês (não existe tra 
dução em português no Brasil), "44 
Dynamic ZX-81" destina-se, como o 
próprio autor afirma no prefácio, àque¬ 
las pessoas que compraram um micro 
pessoal com o intuito de ter às mãos um 
videogame; para professores que adqui 
riram o micro para suas aplicações edu 
ca cio na is (para isto o livro traz progra 
mas como "quadratic equations, ele 
mentary arithmetic") e outros usuários. 

Cada programa é apresentado em 
seis seções ou subdivisões: o que o pro 
grama faz e como usá lo; modificações 
que podem ser feitas; explicações sobre 
técnicas especiais utilizadas no progra 
ma; listagem e descrição das variáveis e 
das sub rotinas. 

O livro, no final, traz dois apêndices 
que falam sobre os termos utilizados e 
um capítulo dedicado à "programação 
eficiente" (efficient programming). 

"44 Dynamic ZX 81" pode ser en 
con trado na Litec — Livraria Técnica em 
São Paulo, através do telefone: (021) 
220.8983/221.1921 ou na representação 
da Prentice Hall no Brasil, através do te 
lefone (021) 285.3275. A.L.A. 


Microprocessadores de 16 bits 


Diversos autores 
Editora Campos 



••ífBWS 


Comparar alguns processadores de 
16 bits (8086 da Intel, o Z8001/ZZHog, 
o 9900 da Texas, o L SI 11/DEC, o 6800/ 
Motorola e o 16000 da National) entre si, 
através de benckmarks simples, feitos 
por autores diferentes. Estes são os 
principais objetivos do livro. 

O básico sobre microprocessadores 
foi deixado de lado sendo focalizado 
apenas os principais termos técnicos 
utilizados, de maneira abrangente (orga 
nização interna do microprocessador, 
conjunto de instruções, sistemas de de 
senvo/vimento, etc.), já que os autores 
levaram em cosideração que os leitores 
do hvro já possuem o conhecimento 
necessário do vocabulário utilizado na 
área (EPROM, RAM, ROM, interrupção, 
registro e afins). 

O Hvro é dividido em sete capítulos 
e apêndices que trazem os benckmarks 
de classificação pelo método da Bolha, 
de pesquisa de strings e tabelas de con 
su/tas. 

As características, histórico, soft 
ware, benckmarks, hardware do chip 
dos vários microprocessadores são 
abordados em capítulos separados, atra 
vés de gráficos, tabelas e ilustrações. 
A.L.A. 


BASIC 

para aplicações 
comerciais 


Autor: Douglas Hergert 
Editora Campos 



Este livro destina-se àqueles que 
querem iniciar-se na programação BA¬ 
SIC de microcomputadores seguindo 
uma orientação específica. 0 objetivo 
do autor é treinar profissionais da área 
comercial a "escreverem, lerem e depu¬ 
rarem programas em BASIC" para suas 
aplicações. 

Dividido em sete capítulos e dois 
apêndices, "BASIC para aplicações co¬ 
merciais" fala sobre diversas caracterís¬ 
ticas do BASIC, enfocando programas 
que executam determinadas tarefas co¬ 
merciais, ao mesmo tempo em que traz 
no final de cada capítulo, exercícios que 
orientam o leitor sobre os tópicos abor¬ 
dados. 

Um detalhe que deve ser destacado 
é a preocupação em comparar as carac¬ 
terísticas do BASIC a outras linguagens 
ligadas ao comércio como FORTRAN, 
COBOL e PASCAL. 

0 livro esclarece as vantagens espe¬ 
cíficas oferecidas para cada uma destas 
linguagens e nos apêndices o autor 
apresenta programas em COBOL (fatu¬ 
ras), em Pascal (um programa que emite 
relatórios mensais de vendas), em FOR¬ 
TRAN (uma versão do programa de de¬ 
preciação apresentado em um dos capí¬ 
tulos), etc. A.L.A. 
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Um trabalho brilhante. 


A Ômega Microcomputadores apresenta sua linha de computadores 

domésticos e profissionais. 

É o resultado de um longo período de pesquisa e desenvolvimento realizado pelo CPTESP, 
Centro de Pesquisa Tecnológica de São Paulo, órgão vinculado ao meio acadêmico. 
Isso quer dizer o seguinte: cada máquina tem atrás de si um supor completo de serviços. 

Tal suporte cobre toda a manutenção (hardware) e também é uma assessoria de 
treinamento e operação (os softwares) que explora todo o potencial existente no mercado. 
Agora, é só você entrar em contato e escolher a máquina mais adequada para seu 


1*000 


tipo de trabalho. 


Microcomputador totalmente 
compatível com o Apple 
Memória RAM 64 Kbytes expandível 
Placa OM 8088 (16 bits) 

Caracteres em português 
Letras maiusculas e minúsculas 
8 slots de expansão 
Garantia de 6 meses 


MPC M000 


fm Microcomputador totalmente 

fj III frJ | | compatível em software e 

hardware com IBM PC xt 
p Memória RAM 256 Kbytes expandível até 1 Mbyte 

Saída de RGB e vídeo composto 
Teclado inteligente com 83 teclas 

OMEl^A indústria e Comércio de Computadores Ltdo nrnnrnmnvpi^ ntf* funpõpç 

CxPostal45426 SõoRoulo Fone(Oll)2755150-2761276 lO T6CIQS prOyramaveiS CjT© ZO Tlinçoes 

Teiex (oii) 23613 soEP cgc 52959491/0001-04 Garantia de 6 meses 


























































Prepare-se. Dentro de sua própria casa, você vai 
perseguir e abater mísseis e tanques de guerra. Seus jatos 
escaparão por milímetros dos potentes canhões inimigos , 
planetas explodirão em chamas. Você vai conhecer, nas 
cores mais dramáticas, na maior nitidez, as sensações de 
uma verdadeira batalha. 

Entregue-se. Você simplesmente não vai resistir 
a fantástica aventura que é ter um Onyx Junior. 


0 mais moderno, o mais completo videogame 
que você já viu (o único neste sistema que tem pau se),com 
mais de 300jogos diferentes: o Onyx Junior usa todos os 
cartuchos da Linha Atari® 

Apresente-se. A mais alta patente em videogame 
espera você para um encontro inesquecível. 

/VIICRODIGIML 


® ATARI INC ALL RIGHTS RESERVED 





AUTORIZO PELO PRESENTE MINHA □ ASSINATUHA INICIAL □ RENOVAÇÃO □ ALTERAÇÃO DE ENDEREÇO 
DA REVISTA MICROHOBBV (12 EDIÇÕES). 

ANEXO REMETO □ VALE POSTAL N?_□ CHEQUE N?_BCO._ 

NOMINAL ÀMICROMEGAP.M.D. LTDA. NO VALOR DECRS_ 



PREÇOS: ASSINATURA: Cr$ 30.000 
RENOVAÇÃO: Cr$ 27.000 


Em caso de renovação de assinatura 
colar neste campo a etiqueta 
de endereçamento atual. 
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Micromega P.M.D. Ltda. • Av. Angélica, 2318 * 14 And. • São Paulo • Cep 01296 
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cada vez melhor! 


A MICROHOBBY é uma revista altamente didática, destinada a programadores de vários níveis, do principiante 
ao hobbista mais ousado, que se aventure a programar em linguagem de máquina. 

Receba em sua casa a revista que contém inúmeros programas, informações, dicas e tudo o que você precisa 
saber sobre microcomputadores e programação. 

MICROHOBBY a revista que põe você em dia com a informática! 

promoção especial para 
novos assinantes e renovações 

Fazendo sua assinatura agora você além de manter o preço inalterado durante 12 edições, paga apenas 
10 edições (CrS 30.000); e ainda ganha uma fita de brinde no valor de CrS 12.000 com 2 jogos. E um grande 
desconto, você ganha a preço de hoje CrS 18.000. 

Renovando sua assinatura além das vantagens já citadas você ainda terá um desconto de CrS 3.000, ou seja 
sua renovação sairá por apenas CrS 27*000, você ganha CrS 21.000. 

Assinando ou renovando agora você só tem a ganhar. 

Assinando a revista MICROHOBBY, você recebe inteiramente grátis uma 
fita cassete contendo 2 jogos. 

1 - O pouso do Barão Vermelho e Pac-hobby (TK83/85) 

2 - Calendário perpétuo e Tatuzão (TK2000 e APPLE) 


Qual a marca do seu micro? 




PEDIDO DE LIVROS E NÚMEROS ATRASADOS DA MICROHOBBY 

(Preencher os itens no verso e o cupom abaixo) 


Sim, desejo receber os itens assinalados no verso 


NOME 

□ 



























ENDEREÇO 




























CEP 







CIDADE 
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EST. 

■ 

■ 


TOTAL DO PEDIDO: Cr$_ 

Enviar cheque nominal cruzado ou vale postal 
à MICROMEGA P.M.D. Ltda. - Cx. Postal 54096 
CEP 01296 - São Paulo - SP - Fone: 826-5001 

Cheque n?_ 

Bco. _ dl Vale postal 


Estou ciente de que aguardarei em média 
90 dias para o recebimento dos produtos 

DATA_/_/_ 


assinatura 
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Não deixe de ler estes livros. 


A 


BASIC TK 

Um Itvro destinado a quem se interessa em aprender a linguagem 
do computador TK82 , 83, 85 e compatíveis Complementando os ma 
nuais destes computadores, o livro BASIC TK é um auxiliar útil mesmo 
para os que já possuem alguns conhecimentos sobre sua máquina 

_ > 
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Linguagem de máquina p/ o TK 

Programar em linguagem de máquina nos permite criar programas 
muito mais rápidos e versáteis que os programados em BASIC 0 livro 
LINGUAGEM DE MAQUINA PARA 0 TK ensina, passo a passo e de 
uma maneira muito leve os segredos desta arte, tornando o capaz de 
^elaborar jogos e aplicativos nesta modalidade de programaçáo 



A 

Coleção de Programas Vol. 1 e II 

Programas de todas as modalidades e para todas as idades. E um 
livro ideal para vocô que gosta de programas prontos para uso" para 
o seu computador 

v J 
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Curso de jogos p/ o TK 

Certamente os jogos de video sâo a coqueluche do momento Que 
tal vocé mesmo bolar seus jogos em seu.TK ou compatível? Este livro lhe 
dá fundamentos para que vocé possa iniciar se neste fascinante hobby 

^ _> 


Para receber os livros, nf* atrasados da MICROHOBBYe fitas abaixo, 
basta assinar o item desejado, e preencher corretamente o cupom do 
verso. 





PREÇOS VÁLIDOS ATE 30/04/85 
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